Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1%-%-\!!RNDZ%8A\~~;45E\' \;;F\' U£RNDU(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT C C\''7( POKE INT D6USR RNDTAN Y\. %SATN INKEY$%(FFLN AINKEY$$COS 2\~~LN NINKEY$$COS 2LN NINKEY$TAN FLN AINKEY$ RETURN COS A\..>=INKEY$( IF TAN 6USR RNDLN \ 'COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%JD FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN INT . CLEAR Q5\' \C3M; FOR LN BTAN RUNDDPI 7 TO 6ABS RNDLN STOP 77E7YC%U\' **<F. FOR LN **\,,7E GOSUB \:'RNDLN LLIST RND7777) PRINT BLN FINKEY$\C3SGN COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT DE7B RETURN C\.'%>K\''A%(**INT CLEAR ACS 5\'.\C3CB CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C8\F5\CD\F1\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"D\EF\CD\A7
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\C9\EB\CD\EF\CD\CD\A5\CD\B2\CD\CE\CDC\EF\C9\D8\D5\CD\CD\CD\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CD\D1\C9\EB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A\CD\CD\C9\DBE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
EF
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
BE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
BE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
ED\C8\FB\C9\E5A\DC\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
FE\FB\E1\E5\F4\E1\C9E\B9\D8\CF\C5\C3\C6\C9\EB\CD\EF\D8\D5\CD\D1\EBE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CD\E0\CD\E0
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CD\E0\CD\E0\D8D
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"E
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CD\CDAF\CDC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"EAF\CDB\ED
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AF\CDB\ED\D5A itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"BADF\CDB\ED
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AF\CDB\ED\D5A\C1\CD\EDC\CB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CBE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CB\DE\CB\CB\E6
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\CBE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CB\E6\CB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CB\DEBEEC\CBAA
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AF
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CD\E5\CDC\C2\C9\E9E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A\B9\C0\F8\C9E\C9E\FE\EA\C9\CD\CDE\FE\C9\E5\EB\A7
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\ED\E1\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D6\CD\F2\EB\D6\C9\C6
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D6\CD\C8\F5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D6\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\DCD\F1\CD\C8\F5\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B\EF\C9\E5\EB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\A7\ED\E1\C9\CF\CF itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\EB\CD\EF\CD\CD\EC\CDD\DCB\E5\CD\F8\CD\DA\E1\E9\D1\CD\EF
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\DE\C9\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"D
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\ED itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C\EDB\D6\ED\B0\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\DE\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CD\CD\CD\CD\BA\DF\DE\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A\C8\CFD\EB\CD\EF\CD\CD\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CD\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D4\CDB\EF\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D6
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C9\C5\CB\CB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
CE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\FD\C1\CDE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\F5E\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
F
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\EEF\CD\F1
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
F\A0
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\F1\B0\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\EEF\C9\C9\CBE\CB\CE\C9\CBE\C9E
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\CB\CBE\C9\A7\CB\CB\F9\C9\A7\CB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A\CB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B\F9\C9B\EDE\FA\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\EDBAC\CBF\ED
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\EB\CD\C9\C5AC\CBBC\CB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CDBCB\CBCB\EDBB\CD\ED\C1\CB\C9\E5\EBE\EB\D1 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\DD\C5\E9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D4\CD\CD\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CD\CD\C3\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D2 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C9\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
F\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\CD\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\CD\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"BF
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
BEB\C9\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"E\CD\A7
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C\ED\EB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D6\ED\B0\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CDFE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
EE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\DC itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"E
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CD\CE\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CD\AE\C9\EDB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\F7
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\ED\B0\EB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\FB\CD\C9\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\EB\CD\EF\D8 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\D5\CD\D1 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"AC\C5\CDA\C1\F9\C9A\CB\C9DD\CDE\E6\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C8
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C9E\E6\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C8\C1\C9\CD\AD\CD\D8\C9\E1\C9\FE\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\E7\CD\D9\C9\E7\CD\D9\E5\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B\CD\A0 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A\E1\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\DEE\FE\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\DE\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\DE\CD\F5\DE\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A\C8\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CFD\F2 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D6E
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\B1\C4
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D6\CDE\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
BE\A7\FB\CD\CE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CF\C6\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
CE\B6\CD\CD\D4\E5\CD\E8\C5\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A\C1\E1\B1\C8\EDB\D6\ED\B0\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\CD\AC\CD\C9\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
D\CD\CDE\C9\E7\CD\BA\DF\D4E\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CFD\CDA\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CF\CD\D8\C9E\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A\CB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
EF
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\B1\C8\D5\EDBC\ED\D1\E1\D5\C5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CDA
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\C1\D1\D2
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\EB\CD\EF\CD\CD\CD\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CD\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
D\F5\CC itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C\CDF\F1\F5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C6\C6\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\F1\F5\C4
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\F1\CCB\EB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
BC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CD\A7
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D4\CDB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\BB\C9\A7
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\EDB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\ED
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\EDD\F9AB\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"BAA\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\A7
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\ED
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CD\C9\CF\E5\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C\FE\F6\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\E1\C9\E1\D8\D5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CD\E1
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CD\E0
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CD\E0
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
CA\D8\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\FDA\D9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
F
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D4\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B\EB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\CD\EF\D8 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\D5\CD\CD\CD\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CD\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D1 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"AF\ED\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D4\CDB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\DA\C9\BC\EB\CD\EF\D8
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\D5\CD\E1E\FD\CBB\ED
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\D3\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\CB\F5\CC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
F\F1\ED\CC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
F
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D4\CDB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\D0\C9\CF\CB\FA\CD\CB\C0\FE\F0
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
BE\BE\E9\D5\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\D1\CB\C8EF\C9\CD\CE\D8\CF\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"E\CD\D5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B\E5\CD\A3\E1\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"BE\C9\BE\C8\FE\D8\CB\FF\BE\CB\BF\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D4\CDB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\C9\E5\D9DE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"BE\E1 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B\D5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C3\F4 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C\EB\CD\EF\CD\D8\D5C\EB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\ED\B0\D1\CD\A5\CD\B2B\D5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D4\DD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CDF itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A\D9\D1\D9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\FEC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\FE\FE\CF\C5\D9\C1\D9\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CB\C8\FDE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"E\CD\C5A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AB\CDEA\C3A\F5\C5\E1\C5\D1\CDD\E5\D9\C1\D9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\F1\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CB\C0\FDC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"E\CD\C5A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AB\FD\CB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
F\D9\D5\D9\C1
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\FDB\CDA\CDC\C8\DC\CD\CD\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CD\C3\EDB\EDF\D8\EDB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\ED\C9\D9\C5\D5\D9\E5\CD\A4A\A7\FD\CB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\ED\CDAC\EB\ED\B0\CD\FAA\E1\C3\AAEA\DD\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C8\CD\A4A\D5\C1F\FD\CBE\F5\CCDA\F1\C4FA\CD\FAA\E8\C9\CDFE\C8
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
BC\BE\C8\EB\ED\A0\EB\E0\F7\CDBE\C8BB\EB\EB\BE\C8\EB\ED\A8\EB\E0\F7\F7\D9\D5\D9\C1
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AB\E5C\ED\B0\E1\C1\C5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\D9\C5\D9\D1\C1\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
EE\BB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
BD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C\F4
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
DEDE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\F3\D8C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\ED\B0\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\ED\B9\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\FD\CB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\EDB\D9\D9\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\FDB\C9\C9\C9C\EB\C9\EB\CD\EF\D8\D5\CD\CDAC\E1 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"E\D5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\C5\CDB\C1B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\D1 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"D\EC\CDBB\CDC\D5\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CA\C5\EDBC\CBF\C4\D2B\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AE\CBF\ED\CB\C7
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CBE\EB\CB\C4\D2B\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AC\CB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\CBF\ED
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CB\CFC\F5\EDB\CD\BB\B2\EDB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AE\CD\BB\B2\EDB\CD\D9B\F1\C1D\C9\FF\FF\ED\EB\C9E\EB\ED\C8\EB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
BEF\B9\D8E
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
F\B8\D8\CD\ED\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"BBE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\C5\B4A\CF
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
EE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\CA
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\A2
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AF\A0AD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
EA
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
BC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
CC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
ECC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AEEAEE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"BC\E5\C1\C9E
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\C3\EFC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AC\E5\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\BA\DC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D8\EB\EDD\E1\C9\D5\CD\CD\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CD\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
D\C4
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C\CD\C6\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\D1DC
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D4\C9\CD\E2C\C8E\F5\CDB\C5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AC\E5\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\E1\C1\B1
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\F1\C9\E5\C5\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"D\C1\E1\F1\E5\C5\CD\C1\D1\CD\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AEAC\BD\C0AD\BC\C9\EB\CD\EFC\CDBC\CDBC\D8 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\FD\CB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CD\CD\B0C\CDAD\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"DD\CDFD\CDC\D7\C9\FD\CB\C8\CDC\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\C9\CDDB\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\C9\C9\FD\CBE\C8\CDC\D8\C5B\CDD\C1\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\C9\FD\CB\C8\CDD\D8E\BE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AC\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\C9E
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\CDFD\C9\CD\BB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
DE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C8\CD\BDE\C9\CD\CD\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CD\FE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
D
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
D\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C\CD\C6\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
C\C9\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
AF\C9\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\D8E
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CD\C2\CDA\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C\EB\CD\EF\FD\CB\F5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\D8
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D4\CDED\F1
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\CDFD\D6 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CDEDE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CD\C9\CD
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B\F1\CDEDE\D8\CDFD\B7\C8 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\CD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
A\D6\C9\D8E\BE\D8EE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\B9F\C9\FD\CB\C9\FD\CBE\BE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\C9\F5\BE\F1\C9\F1\C9E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"E
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\FD\C3A\EB\CD\C8\CF itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B\CDE\C3B\CDE\C9
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
E\BE\C8
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\FD\CBE
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
B
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
D
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\E7EC\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B\D5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\FD\CB
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\ED\D1\C9\D5\E5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\EDC\B5D\E1\D1\C9\C5\E5\FC\E1\C1\C9\E1\D1\D5
Skip to content
Truck
Game to demonstrated Frits Beniest’s extended basic for the ZX81.
Content
Image Gallery
Source Code
0 IF USR . THEN RETURN FROM EX. BASIC AUT: FRITS BENIEST (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\' U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN COS \47\7A\..>=\62INKEY$( IF TAN 6USR RNDLN \ '\44COS RETURN :TAN TAN PLOT SQR Y3 PLOT SQR INT 3 AT STR$ LN ATN INKEY$LN INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\. CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI 7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\' **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN C\.'%>K\''\7A%(**INT \75 CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN
People
\FD\CB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\FD\ED\FC\D1\C1\B1\C8\D5\CDA\D1\CDFE\CDFE\C8\C8\CDEE\EB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56741 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B
1 REM POOP
2 SLOW
3 LET A=0
5 GOSUB 0
6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
7 GOSUB 0
8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
9 IF A<>50 THEN GOTO 11
10 IF A=50 THEN GOTO 12
11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER TRY AGAIN.WILL YOU GO NORTH OR SOUTH?"
13 LET S$="STOP"
15 INPUT U$
20 IF U$="NORTH" THEN LET A=0
21 IF U$="SOUTH" THEN LET A=1
40 GOSUB 1000
44 IF A=0 THEN PRINT AT 7,26;"NORTH"
45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
46 PAUSE 100
47 GOSUB 0
48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
49 IF A=0 THEN GOTO 70
50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION? Y/N"
55 INPUT A$
56 IF A$="Y" THEN GOTO 80
57 IF A$="N" THEN GOTO 60
60 GOSUB 1000
61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
62 PAUSE 100
63 GOSUB 0
64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
65 PAUSE 150
66 GOSUB 1000
67 LET R=100
68 GOTO 228
70 GOSUB 950
72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP. WHICH WAY TO THE FIRE WOOD? NORTH/EAST/WEST"
73 INPUT A$
74 IF A$="NORTH" THEN GOTO 120
75 IF A$="EAST" THEN LET A=2
76 IF A$="WEST" THEN LET A=3
77 IF A=2 THEN GOTO 112
78 IF A=3 THEN GOTO 87
80 GOSUB 1000
81 GOSUB 0
82 REM PAPER;1,23,1,32,\@@,
83 PRINT "THE COP GOT YOU BUT LET YOU GO."
84 PAUSE 200
85 GOSUB 0
86 REM UNPAPER;1,23,1,32,\@@,
87 GOSUB 1000
88 GOSUB 960
89 GOSUB 980
90 PRINT AT 1,1;"NASTY CORNER AHEAD."
91 PAUSE 200
92 GOSUB 985
93 GOSUB 965
94 PRINT AT 1,1;" YOU MADE IT "
95 GOSUB 950
96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP. WHICH WAY? W/E?"
97 INPUT A$
98 IF A$="E" THEN GOTO 198
99 IF A$="W" THEN GOTO 112
100 GOSUB 955
101 GOSUB 960
102 GOSUB 970
103 PRINT "A CORNER AHEAD."
104 PAUSE 150
105 GOSUB 975
106 GOSUB 980
107 PRINT "ANOTHER CORNER.WILL YOU TURN LEFT AT THIS INTERSECTION? Y/N"
108 INPUT A$
109 IF A$="Y" THEN LET A=50
110 IF A$="N" THEN GOTO 60
111 IF A=50 THEN GOTO 3
112 GOSUB 0
114 REM PAPER;1,23,1,32,% ,
115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
116 PAUSE 500
117 GOTO 1
120 GOSUB 955
121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART OF THE COUNTRY."
122 PAUSE 150
123 GOSUB 0
124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
125 PRINT AT 10,7;"YOU GOT HIM.."
126 PAUSE 300
127 GOSUB 1000
128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE ROAD. WILL YOU GO E/W?"
129 GOSUB 950
130 INPUT A$
140 IF A$="E" THEN GOTO 145
141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND DIED. TRY AGAIN? Y/N "
142 INPUT A$
143 IF A$="Y" THEN GOTO 1
144 IF A$="N" THEN STOP
145 GOSUB 955
146 GOSUB 1000
147 GOSUB 960
148 GOSUB 970
150 PAUSE 150
151 GOSUB 975
152 GOSUB 980
153 PAUSE 150
154 GOSUB 985
155 GOSUB 980
156 PAUSE 180
157 GOSUB 985
159 GOSUB 965
160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION? Y/N"
161 INPUT A$
162 IF A$="Y" THEN GOTO 87
163 IF A$="N" THEN GOTO 173
165 LET T=9
166 GOTO 87
173 LET T=9
174 GOTO 200
197 LET R=1
198 LET T=0
199 GOSUB 1000
200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT YOUR HOUSE?"
201 PAUSE 200
202 GOSUB 0
203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
205 PRINT "WAS THAT YOUR HOUSE? Y/N"
206 IF T=9 THEN GOTO 210
207 IF T<>9 THEN GOTO 213
210 INPUT A$
211 IF A$="Y" THEN GOTO 127
212 IF A$="N" THEN GOTO 800
213 INPUT A$
214 IF A$="Y" THEN GOTO 127
215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE IT AGAIN."
216 PAUSE 150
217 GOTO 200
228 IF R<>100 THEN STOP
229 IF R=100 THEN GOTO 230
230 GOSUB 0
231 REM PAPER;1,23,1,32,\@@,
232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK? Y/N"
233 INPUT A$
234 IF A$="Y" THEN GOTO 240
235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON YOU HAVE CRASHED. PLAY AGAIN? Y/N"
236 INPUT A$
237 IF A$="Y" THEN GOTO 1
238 IF A$="N" THEN STOP
240 GOSUB 0
241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS.. "
243 PAUSE 200
244 GOTO 197
290 SAVE "TRUCKI%N"
291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
292 PAUSE 250
293 GOTO 1
300 PRINT "YOU FINALY GOT HERE. IT TOOK SOME GOOD DRIVING TO DO IT. UH- IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE. NOW THAT YOU MADE IT THIS FAR YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE WOOD. GOOD LUCK."
302 STOP
800 LET Q$="FIRE WOOD"
801 LET R$="FOR SALE"
802 GOSUB 0
803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
804 PRINT AT 1,1;" CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN LOAD YOUR FIRE WOOD."
805 PAUSE 300
806 GOTO 300
950 GOSUB 0
951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
952 RETURN
955 GOSUB 0
956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
957 RETURN
960 GOSUB 0
961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
962 RETURN
965 GOSUB 0
966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
967 RETURN
970 GOSUB 0
971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
972 RETURN
975 GOSUB 0
976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
977 RETURN
980 GOSUB 0
981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
982 RETURN
985 GOSUB 0
986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
987 RETURN
\n1000 GOSUB 0
\n1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
\n1002 RETURN
