Truck

Gallery

Source Code

   0 IF USR . THEN RETURN  FROM    EX. BASIC  AUT: FRITS BENIEST   (C) 070/988735 %V%E%R%S%I%E% %2%.%1\76\76%-%-\!!RNDZ\50%8\6A\~~;45E\' \;;\4F\'  U£RND\47U(RNDLEN SCROLL %SCOS INT $\.'\.'INKEY$( SAVE INT \7C \76C\''7( POKE INT \7D6USR RNDTAN  Y\. %SATN \62INKEY$%(\4FFLN \5AINKEY$$COS 2\~~\57LN NINKEY$$COS 2\64\57LN NINKEY$TAN FLN \5AINKEY$ RETURN  COS \47\7A\..>=\62INKEY$( IF TAN      6USR RNDLN \ '\44COS RETURN :TAN    TAN PLOT SQR Y3 PLOT SQR INT 3   AT STR$ LN ATN INKEY$LN  INKEY$LN EXP INKEY$\.'=VAL FAST STR$ \.'\'',%Y4\~~LN LN INKEY$<( PLOT AT AT AT TAN SGN LPRINT <<<<<AT ( STOP INT . CLEAR ACS 5\'./\.  CLEAR ACS 5LEN \C3%J\4D FOR FAST LN EXP INKEY$%;INKEY$ RETURN OASN \78\46INT . CLEAR Q5\' \C3M\46; FOR LN \67\45\7BTAN R\78\46UND\5DPI   7 TO 6ABS RNDLN STOP \4477\5E7\56YC%U\'   **<\72F\73. FOR LN **\,,\567\5E GOSUB \53\:'RNDLN LLIST RND7777) PRINT \4BLN \6FINKEY$\C3SGN \45 COPY VAL STR$ LN LN INKEY$LN \' INKEY$ FAST LN RUN \45 LPRINT SGN ><AT ( GOSUB TAN F\. %SC\: FLN EXP INKEY$ RETURN ,COS INT \7D\5E7\56\7B RETURN  C\.'%>K\''\7A%(**INT \75    CLEAR ACS 5\'.\C3C\4B CLEAR ACS 5LEN / RUN U5RNDACS \ ./\: U5RNDACS SIN M5RND\C3 REM \42\FE\00\C8\F5\CD\20\15\F1\CD\1D\15\EF\05\34\CD\A7\0E\C9\EB\CD\EF\40\CD\90\42\CD\A5\42\CD\B2\42\CD\CE\42\CD\4C\49\20\EF\C9\11\D8\40\06\04\D5\CD\08\42\CD\CD\41\CD\01\41\CD\06\49\12\D1\C9\EB\06\1A\CD\36\42\23\06\22\CD\36\42\C9\21\DB\40\7E\2B\96\06\00\4E\5F\2B\7E\2B\96\57\7E\2A\0C\40\09\0E\21\3D\C8\09\18\FB\C9\E5\3A\DC\40\43\CD\0F\4E\10\FB\E1\09\E5\15\20\F4\E1\C9\7E\B9\D8\CF\75\C5\C3\C6\45\C9\EB\CD\EF\40\11\D8\40\06\04\D5\CD\08\42\D1\EB\23\46\23\4E\70\2B\71\2B\00\0E\40\CD\E0\42\23\CD\E0\42\0E\30\23\CD\E0\42\23\CD\E0\42\21\D8\40\11\3D\40\06\02\CD\74\45\13\06\02\CD\74\45\1E\00\21\3E\40\CD\48\45\23\23\CD\48\45\23\3A\3F\40\77\CD\48\45\21\3C\40\73\16\00\CB\46\20\1E\3A\40\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\42\40\5F\CD\5B\45\ED\53\47\40\D5\3A\43\40\18\1B\3A\3D\40\5F\CD\5B\45\ED\53\45\40\16\00\3A\43\40\5F\CD\5B\45\ED\53\47\40\D5\3A\42\40\C1\CD\68\42\ED\43\49\40\21\3C\40\CB\46\20\0E\CB\4E\28\02\CB\DE\CB\56\28\10\CB\E6\18\0C\CB\4E\28\02\CB\E6\CB\56\28\02\CB\DE\11\4B\40\23\7E\12\23\23\23\13\7E\12\21\3C\40\CB\46\20\05\3A\43\40\18\03\3A\42\40\47\04\00\2A\45\40\11\3F\00\19\22\45\40\CD\E5\42\CD\4C\49\C2\54\49\C9\23\06\03\11\E9\43\4E\1A\B9\C0\23\13\10\F8\C9\29\26\39\23\23\5E\23\56\23\19\C9\32\32\32\32\23\23\23\23\7E\FE\EA\C9\32\32\CD\CD\41\7E\FE\76\C9\32\32\32\E5\23\23\EB\A7\2A\14\40\ED\52\E1\C9\32\32\32\2A\D6\40\CD\F2\09\EB\22\D6\40\C9\32\32\32\32\C6\40\2A\D6\40\CD\41\49\C8\F5\2A\10\40\22\D6\40\CD\0C\44\DC\5D\44\F1\CD\41\49\C8\F5\CD\1B\44\18\EF\C9\32\E5\23\23\EB\2A\0C\40\A7\ED\52\E1\C9\32\32\CF\72\CF\01\EB\CD\EF\40\22\16\40\CD\75\47\18\09\CD\EC\43\CD\4D\44\DC\5B\44\E5\CD\F8\43\20\05\CD\DA\43\28\03\E1\18\E9\D1\CD\EF\40\00\00\00\00\22\DE\40\C9\24\32\32\32\32\CD\1D\15\2A\1C\40\01\05\00\ED\42\22\1C\40\ED\5B\D6\40\13\ED\B0\C9\32\32\32\2A\DE\40\CD\02\44\20\07\23\CD\74\44\CD\CD\41\22\16\40\CD\BA\46\DF\22\DE\40\FE\1A\C8\CF\7D\EB\CD\EF\40\CD\CD\41\CD\01\41\CD\22\42\CD\68\47\2A\D4\40\CD\4B\41\20\EF\C9\2A\10\40\22\D6\40\2A\02\40\C9\C5\CB\38\04\CB\39\0C\3E\19\90\47\2A\0C\40\11\21\00\18\01\19\10\FD\59\19\C1\CD\99\46\3E\2F\90\47\3E\01\CB\28\30\02\3E\04\CB\29\30\01\07\F5\7E\07\FE\10\30\06\0F\30\02\EE\8F\47\CD\91\46\28\05\F1\2F\A0\18\02\F1\B0\FE\08\38\02\EE\8F\77\C9\96\77\C9\CB\7E\20\03\CB\CE\C9\CB\8E\C9\7E\2B\96\38\05\CB\13\23\18\05\CB\13\7E\23\96\23\77\C9\96\06\07\A7\CB\13\CB\12\10\F9\C9\23\96\06\07\A7\CB\1A\CB\1B\10\F9\C9\4B\40\ED\7E\12\23\13\10\FA\C9\2A\45\40\ED\5B\49\40\3A\3C\40\CB\5F\20\03\19\18\07\97\ED\52\30\02\67\6C\22\45\40\EB\CD\67\45\C9\C5\3A\3C\40\CB\47\20\05\21\4B\40\18\03\21\4C\40\CB\67\20\03\34\18\01\35\CD\7B\45\21\3C\40\7B\CB\46\20\05\32\4C\40\18\03\32\4B\40\ED\4B\4B\40\CD\ED\44\C1\10\CB\C9\E5\EB\5E\23\56\EB\D1\01\DD\45\C5\E9\2A\D4\40\CD\CD\41\FE\0E\20\06\CD\CD\41\C3\FE\41\2A\D2\40\22\16\40\01\01\00\C9\CD\0F\46\38\05\CD\16\41\18\0A\CD\22\42\CD\2A\44\CD\17\46\79\C9\1B\1B\1B\5F\2B\3E\25\96\23\7B\C9\CD\1E\46\CD\A7\0E\C9\2A\1C\40\01\05\00\09\22\1C\40\ED\42\EB\2A\D6\40\23\ED\B0\C9\1B\00\CD\4F\4E\2A\0C\40\23\22\0E\40\3E\00\32\DC\40\1E\20\16\18\0E\21\CD\CE\42\C9\23\36\01\23\36\21\23\36\00\CD\AE\42\C9\ED\5B\0C\40\21\21\00\13\19\01\F7\02\ED\B0\06\20\EB\36\00\23\10\FB\CD\36\48\C9\C9\00\00\00\EB\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\D1\1A\3C\47\C5\CD\5A\46\C1\10\F9\C9\3A\21\40\CB\47\C9\3D\3D\CD\91\46\20\09\7E\E6\78\FE\00\C8\36\00\C9\7E\E6\78\FE\00\C8\C1\C9\CD\AD\48\38\04\CD\D8\09\C9\E1\C9\FE\16\28\09\FE\15\20\01\E7\CD\D9\14\C9\E7\CD\D9\14\E5\CD\85\1B\CD\A0\1A\E1\C9\2A\DE\40\23\7E\FE\76\20\05\23\CD\74\44\23\2B\22\DE\40\C9\1B\2A\DE\40\23\CD\F5\46\22\DE\40\C9\1B\1B\01\00\00\7E\FE\1A\C8\FE\76\20\02\CF\7D\03\23\18\F2\1B\1B\2A\D6\40\23\4E\36\00\23\46\36\00\23\78\B1\C4\60\0A\C9\2A\D6\40\23\71\23\70\23\CD\9E\09\C9\1B\1B\2B\7E\A7\28\FB\CD\CE\14\38\02\CF\70\C6\20\CD\2C\44\23\7E\23\B6\28\03\CD\08\47\CD\D4\46\23\E5\CD\E8\46\C5\CD\1A\47\C1\E1\78\B1\C8\ED\5B\D6\40\13\13\13\ED\B0\C9\1B\CD\2A\44\CD\AC\44\CD\96\44\C9\FE\0D\20\05\CD\28\47\18\03\CD\5E\47\C9\E7\CD\BA\46\DF\22\D4\40\7E\FE\1A\28\02\CF\7D\CD\8A\15\20\05\78\FE\40\38\02\CF\14\60\69\CD\D8\09\C9\7E\FE\76\20\01\23\1A\CB\77\28\02\3E\8F\77\13\23\0B\78\B1\C8\D5\ED\5B\3C\40\ED\52\19\D1\38\E1\D5\C5\22\0E\40\CD\5A\46\2A\0E\40\C1\D1\18\D2\00\EB\CD\EF\40\CD\55\48\CD\CD\41\CD\01\41\CD\22\42\FE\0D\F5\CC\1C\42\CD\28\49\4F\F1\F5\79\28\02\C6\20\C6\20\CD\2C\44\F1\F5\C4\2E\49\F1\CC\3B\49\EB\2A\10\40\2B\22\3C\40\2A\0E\40\CD\A7\47\22\0E\40\CD\12\48\2A\D4\40\CD\4B\41\2B\20\BB\C9\A7\2A\0E\40\ED\5B\0C\40\13\ED\52\11\21\00\3E\18\ED\52\38\03\3D\18\F9\32\3A\40\19\7B\95\32\39\40\C9\1B\1B\1B\3A\3A\40\FE\18\20\06\2A\0C\40\23\18\09\A7\2A\0E\40\11\21\00\ED\52\22\0E\40\CD\12\48\C9\CF\17\E5\CD\1C\42\FE\39\20\F6\CD\1C\42\FE\26\28\02\E1\C9\E1\11\D8\40\D5\06\02\CD\08\42\E1\0E\18\CD\E0\42\23\0E\20\CD\E0\42\2A\0C\40\23\3A\D8\40\FE\00\28\07\47\11\21\00\19\10\FD\3A\D9\40\16\00\5F\19\22\0E\40\CD\12\48\2A\D4\40\C9\1B\1B\1B\EB\2B\CD\EF\40\11\D8\40\06\01\D5\CD\08\42\CD\CD\41\CD\01\41\CD\22\42\CD\2A\44\D1\1A\4F\ED\78\CD\93\44\2A\D4\40\CD\4B\41\2B\20\DA\C9\BC\EB\CD\EF\40\11\D8\40\06\02\D5\CD\08\42\E1\4E\23\46\FD\CB\3B\76\28\08\ED\41\00\D3\FE\76\18\0C\CB\41\F5\CC\2B\0F\F1\ED\41\CC\23\0F\2A\D4\40\CD\4B\41\2B\20\D0\C9\CF\73\CB\40\28\FA\CD\22\42\CB\48\C0\FE\11\20\F0\2B\2B\3E\10\BE\20\E9\23\23\D5\CD\01\46\D1\CB\77\C8\3E\8F\C9\CD\CE\14\D8\CF\70\CD\1E\46\CD\D5\1B\E5\CD\A3\14\E1\C9\1B\23\4E\23\46\23\C9\BE\C8\FE\60\D8\CB\FF\BE\CB\BF\C9\2A\D4\40\CD\4B\41\2B\C9\E5\21\D9\40\54\5D\7E\1B\12\23\23\13\7E\12\E1\1B\D5\13\13\06\02\C3\F4\42\25\1C\EB\CD\EF\40\CD\90\42\11\D8\40\D5\21\3C\40\EB\01\04\00\ED\B0\D1\CD\A5\42\CD\B2\42\22\7B\40\D5\2A\D4\40\11\DD\40\06\01\CD\08\42\4F\1B\1B\1A\D9\D1\D9\00\FE\2A\28\0E\FE\3C\28\0A\FE\33\28\26\FE\38\28\22\CF\16\C5\D9\C1\D9\FE\2A\28\02\CB\C8\FD\70\21\21\3E\40\06\02\1E\21\CD\C5\4A\2A\7B\40\CD\5E\4A\C3\12\4A\F5\C5\E1\C5\D1\06\05\CD\5D\45\19\E5\D9\C1\D9\06\00\F1\FE\38\20\02\CB\C0\FD\70\21\21\3C\40\06\02\1E\19\CD\C5\4A\2A\7B\40\FD\CB\21\46\28\0F\D9\D5\D9\C1\11\21\00\18\01\19\10\FD\22\7B\40\CD\37\4A\CD\4C\49\C8\11\DC\40\CD\CD\41\CD\01\41\CD\06\49\12\C3\75\49\ED\5B\10\40\ED\52\19\3F\D8\ED\5B\0C\40\ED\52\19\C9\D9\C5\D5\D9\E5\CD\A4\4A\A7\FD\CB\21\46\28\03\19\18\02\ED\52\CD\26\4A\38\05\11\3C\40\EB\ED\B0\CD\FA\4A\20\E1\C3\AA\4E\3A\DD\40\FE\00\C8\CD\A4\4A\79\D5\C1\5F\FD\CB\21\4E\F5\CC\7D\4A\F1\C4\8F\4A\CD\FA\4A\20\E8\C9\CD\5F\4E\C8\00\4B\11\3C\40\BE\C8\EB\ED\A0\EB\E0\18\F7\CD\5B\4E\C8\4B\11\3B\40\EB\09\EB\BE\C8\EB\ED\A8\EB\E0\18\F7\F7\D9\D5\D9\C1\06\00\C5\2A\7B\40\E5\11\3C\40\ED\B0\E1\C1\C5\00\00\00\00\00\00\00\00\D9\C5\D9\D1\C1\C9\20\0E\7E\81\BB\38\02\7B\3D\77\23\1C\10\F4\18\0D\7E\3D\91\30\03\3E\02\90\3C\77\23\10\F3\11\D8\40\21\3C\40\01\04\00\ED\B0\C9\2B\16\00\19\3E\76\ED\B9\C9\00\00\00\2A\7B\40\11\21\00\FD\CB\21\46\20\03\19\18\02\ED\52\22\7B\40\D9\15\D9\C9\1B\1B\11\21\00\18\01\19\10\FD\22\7B\40\C9\40\C9\C9\11\3C\40\EB\C9\EB\CD\EF\40\11\D8\40\06\03\D5\CD\08\42\CD\5A\4C\E1\1E\03\D5\16\00\5E\C5\CD\5B\45\C1\23\7B\02\03\7A\02\03\D1\1D\20\EC\CD\5B\4B\CD\4C\49\20\D5\C9\00\00\00\06\CA\97\C5\ED\5B\3C\40\CB\4F\C4\D2\4B\06\05\CD\69\45\2A\3E\40\CB\4F\20\08\ED\52\30\09\CB\C7\18\05\19\30\02\CB\87\22\3E\40\EB\CB\47\C4\D2\4B\06\05\CD\69\45\2A\3C\40\CB\47\20\07\19\30\0A\CB\8F\18\06\ED\52\30\02\CB\CF\22\3C\40\F5\ED\5B\42\40\CD\BB\41\32\45\40\97\B2\20\18\ED\5B\40\40\2A\3E\40\CD\BB\41\32\44\40\97\B2\20\07\ED\4B\44\40\CD\D9\4B\F1\C1\10\8D\C9\21\FF\FF\ED\52\EB\C9\97\21\48\40\5E\23\56\EB\ED\42\C8\EB\70\2B\71\3E\3F\B9\D8\3E\2F\B8\D8\CD\ED\44\C9\1B\32\34\3B\6E\49\35\37\2E\C5\47\28\31\38\B4\41\34\3A\39\CF\48\29\37\26\56\42\2B\2E\31\31\4E\37\2A\26\CA\44\2E\33\19\A2\48\37\2A\38\5F\44\38\28\37\A0\41\3A\33\29\5D\42\28\2E\37\49\42\3A\33\28\50\42\31\2A\2B\64\4C\37\2E\2C\68\4C\32\2E\29\6C\4C\30\2A\3E\93\41\35\26\35\39\4E\3A\33\35\35\4E\28\34\35\47\4E\1B\21\3C\40\70\23\70\23\E5\C1\C9\3E\02\18\06\3E\01\18\02\3E\04\32\21\40\C3\EF\4C\2A\3C\40\97\E5\CD\00\13\BA\DC\44\42\2A\D8\40\62\EB\ED\52\4D\44\E1\C9\D5\CD\CD\41\CD\01\41\CD\22\42\FE\0D\C4\2C\42\CD\1C\42\CD\28\49\C6\20\CD\2C\44\D1\7D\12\13\7C\12\13\2A\D4\40\C9\CD\E2\4C\C8\7E\F5\CD\3B\49\C5\2A\3C\40\E5\CD\0B\47\E1\C1\78\B1\20\02\F1\C9\E5\C5\CD\1D\47\C1\E1\F1\E5\C5\CD\33\44\C1\D1\23\23\23\CD\57\47\C9\00\00\00\2A\3E\40\3A\3C\40\BD\C0\3A\3D\40\BC\C9\EB\CD\EF\40\11\3C\40\CD\8B\4C\CD\8B\4C\11\D8\40\06\01\FD\CB\21\56\28\01\04\CD\08\42\CD\B0\4C\CD\3A\4D\CD\1D\4D\CD\4F\4D\CD\4C\49\20\D7\C9\FD\CB\21\46\C8\CD\74\4C\30\04\CD\0B\47\C9\CD\34\4D\4B\42\CD\60\0A\C9\23\71\23\70\23\C9\FD\CB\21\4E\C8\CD\74\4C\D8\C5\4B\42\CD\34\4D\09\C1\CD\60\0A\C9\FD\CB\21\56\C8\CD\22\4D\21\D8\40\7E\23\BE\38\07\2A\3C\40\CD\0B\47\C9\47\7E\90\2B\77\CD\3F\4D\C9\CD\BB\02\44\4D\51\3E\00\14\C8\CD\BD\07\7E\C9\CD\CD\41\CD\01\41\CD\22\42\FE\0D\20\0D\CD\1C\42\CD\28\49\C6\20\CD\2C\44\37\C9\CD\2A\44\37\3F\C9\CD\02\4E\D8\23\7E\00\06\00\CD\C2\42\CD\26\4A\C9\1C\EB\CD\EF\40\FD\CB\21\46\F5\28\0B\11\D8\40\06\02\CD\08\42\2A\D4\40\CD\7E\4D\38\18\F1\20\0A\CD\6F\4D\D6\1C\30\01\97\18\07\CD\9E\4D\7E\30\01\97\CD\93\44\C9\CD\0B\47\F1\28\07\CD\9E\4D\7E\D8\18\05\CD\6F\4D\B7\C8\01\01\00\CD\1A\47\2A\D6\40\23\23\23\77\C9\21\D8\40\3E\20\BE\D8\4E\3E\00\B9\3F\C9\FD\CB\21\46\28\03\77\23\C9\FD\CB\21\4E\28\07\BE\20\02\36\00\23\C9\F5\97\BE\20\04\F1\77\23\C9\F1\23\C9\3E\01\18\05\3E\02\18\01\97\FD\77\21\C3\7A\42\EB\CD\48\41\C8\CF\1B\CD\40\4E\16\18\C3\6B\08\CD\40\4E\21\39\40\36\21\23\36\18\C9\2B\16\00\19\53\3E\76\BE\C8\97\92\28\03\36\00\15\FD\CB\21\4E\28\02\2B\2B\23\0D\28\02\18\E7\3E\75\3C\C9\1B\D5\11\21\00\FD\CB\21\46\28\03\19\18\02\ED\52\D1\C9\D5\E5\60\69\11\21\00\ED\52\7C\B5\44\4D\E1\D1\C9\C5\E5\97\43\77\23\10\FC\E1\C1\C9\E1\D1\D5\42\11\21\00\FD\CB\21\46\20\09\18\01\19\10\FD\18\04\ED\52\10\FC\D1\C1\78\B1\C8\D5\CD\26\4A\D1\38\03\CD\9F\4E\CD\8F\4E\C8\15\C8\CD\7E\4E\18\EB\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
   1 REM POOP
   2 SLOW 
   3 LET A=0
   5 GOSUB 0
   6 REM CLS:DRAW;9,5,9,11,23,11,23,16,29,16,33,11,41,11,41,5,9,5,:CIRCLE;4,37,4,:CIRCLE;4,15,4,:DRAW;7,0,7,21,1,21,7,21,1,28,
   7 GOSUB 0
   8 REM MOVE;10,25,5,30,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,
   9 IF A<>50 THEN GOTO 11
  10 IF A=50 THEN GOTO 12
  11 PRINT "AH,GOING AFTER SOME FIRE WOOD I SEE.WILL YOU GO NORTH OR SOUTH?"
  12 IF A=50 THEN PRINT "YOU FORGOT THE WOOD,YOU BETTER  TRY AGAIN.WILL YOU GO               NORTH OR SOUTH?"
  13 LET S$="STOP"
  15 INPUT U$
  20 IF U$="NORTH" THEN LET A=0
  21 IF U$="SOUTH" THEN LET A=1
  40 GOSUB 1000
  44 IF A=0 THEN PRINT AT 7,26;"NORTH"
  45 IF A=1 THEN PRINT AT 7,26;"SOUTH"
  46 PAUSE 100
  47 GOSUB 0
  48 REM MOVE;8,14,20,32,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,N,1,E,1,
  49 IF A=0 THEN GOTO 70
  50 PRINT AT 2,1;"BETTER WATCH YOUR SPEED I SEE A COP UP AHEAD...ARE YOU GOING TO TURN LEFT AT THIS INTERSECTION?            Y/N"
  55 INPUT A$
  56 IF A$="Y" THEN GOTO 80
  57 IF A$="N" THEN GOTO 60
  60 GOSUB 1000
  61 PRINT AT 1,1;"I SEE A TUNNEL AHEAD.."
  62 PAUSE 100
  63 GOSUB 0
  64 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;23,24,23,37,45,37,45,24,:PAPER;6,12,12,24,\@@,
  65 PAUSE 150
  66 GOSUB 1000
  67 LET R=100
  68 GOTO 228
  70 GOSUB 950
  72 PRINT AT 1,1;"YOU ARE AT A FOUR WAY STOP.    WHICH WAY TO THE FIRE WOOD?             NORTH/EAST/WEST"
  73 INPUT A$
  74 IF A$="NORTH" THEN GOTO 120
  75 IF A$="EAST" THEN LET A=2
  76 IF A$="WEST" THEN LET A=3
  77 IF A=2 THEN GOTO 112
  78 IF A=3 THEN GOTO 87
  80 GOSUB 1000
  81 GOSUB 0
  82 REM PAPER;1,23,1,32,\@@,
  83 PRINT "THE COP GOT YOU BUT LET YOU GO."
  84 PAUSE 200
  85 GOSUB 0
  86 REM UNPAPER;1,23,1,32,\@@,
  87 GOSUB 1000
  88 GOSUB 960
  89 GOSUB 980
  90 PRINT AT 1,1;"NASTY CORNER AHEAD."
  91 PAUSE 200
  92 GOSUB 985
  93 GOSUB 965
  94 PRINT AT 1,1;"      YOU MADE IT            "
  95 GOSUB 950
  96 PRINT AT 1,1;"YOU ARE AT A THREE WAY STOP.       WHICH WAY?  W/E?"
  97 INPUT A$
  98 IF A$="E" THEN GOTO 198
  99 IF A$="W" THEN GOTO 112
 100 GOSUB 955
 101 GOSUB 960
 102 GOSUB 970
 103 PRINT "A CORNER AHEAD."
 104 PAUSE 150
 105 GOSUB 975
 106 GOSUB 980
 107 PRINT "ANOTHER CORNER.WILL YOU TURN    LEFT AT THIS INTERSECTION?           Y/N"
 108 INPUT A$
 109 IF A$="Y" THEN LET A=50
 110 IF A$="N" THEN GOTO 60
 111 IF A=50 THEN GOTO 3
 112 GOSUB 0
 114 REM PAPER;1,23,1,32,% ,
 115 PRINT AT 1,1;"%I%T%S% %T%O%O% %D%A%R%K% %N%O%W%.% %T%R%Y% %A%G%A%I%N% % % % % % % % % %T%O%M%O%R%O%W% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 116 PAUSE 500
 117 GOTO 1
 120 GOSUB 955
 121 PRINT AT 1,1;"LOOK OUT FOR PIGS IN THIS PART  OF THE COUNTRY."
 122 PAUSE 150
 123 GOSUB 0
 124 REM CIRCLE;4,34,20,:UNCIRCLE;4,34,20,:CIRCLE;4,34,18,:UNCIRCLE;4,34,18,:CIRCLE;4,34,16,:UNCIRCLE;4,34,16,:CIRCLE;4,34,14,:UNCIRCLE;4,34,14,
 125 PRINT AT 10,7;"YOU GOT HIM.."
 126 PAUSE 300
 127 GOSUB 1000
 128 PRINT AT 1,1;"YOU HAVE COME TO A ""T""IN THE   ROAD. WILL YOU GO E/W?"
 129 GOSUB 950
 130 INPUT A$
 140 IF A$="E" THEN GOTO 145
 141 IF A$="W" THEN PRINT AT 1,1;"YOU RAN OFF THE ROAD AND   DIED. TRY AGAIN? Y/N              "
 142 INPUT A$
 143 IF A$="Y" THEN GOTO 1
 144 IF A$="N" THEN STOP 
 145 GOSUB 955
 146 GOSUB 1000
 147 GOSUB 960
 148 GOSUB 970
 150 PAUSE 150
 151 GOSUB 975
 152 GOSUB 980
 153 PAUSE 150
 154 GOSUB 985
 155 GOSUB 980
 156 PAUSE 180
 157 GOSUB 985
 159 GOSUB 965
 160 PRINT AT 1,1;"YOU SEEM TO BE GOING SOUTH NOW. WILL YOU TURN LEFT AT THIS NEXT INTERSECTION?       Y/N"
 161 INPUT A$
 162 IF A$="Y" THEN GOTO 87
 163 IF A$="N" THEN GOTO 173
 165 LET T=9
 166 GOTO 87
 173 LET T=9
 174 GOTO 200
 197 LET R=1
 198 LET T=0
 199 GOSUB 1000
 200 PRINT AT 1,1;"LOOK TO YOUR RIGHT. IS THAT       YOUR HOUSE?"
 201 PAUSE 200
 202 GOSUB 0
 203 REM CLS:DRAW;11,21,11,25,13,25,13,21,:DRAW;13,22,22,22,27,16,4,16,9,22,11,22,:DRAW;6,16,6,7,25,7,25,16,:DRAW;16,7,16,14,20,14,20,7,:DRAW;8,14,8,11,11,11,11,14,7,14,:MOVE;8,22,1,15,E,2,E,2,E,2,E,2,E,2,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,1,E,2,E,2,E,2,E,2,E,2,E,2,
 205 PRINT "WAS THAT YOUR HOUSE? Y/N"
 206 IF T=9 THEN GOTO 210
 207 IF T<>9 THEN GOTO 213
 210 INPUT A$
 211 IF A$="Y" THEN GOTO 127
 212 IF A$="N" THEN GOTO 800
 213 INPUT A$
 214 IF A$="Y" THEN GOTO 127
 215 IF A$="N" THEN PRINT AT 1,1;"I THINK YOUR MISTAKEN LETS SEE   IT AGAIN."
 216 PAUSE 150
 217 GOTO 200
 228 IF R<>100 THEN STOP 
 229 IF R=100 THEN GOTO 230
 230 GOSUB 0
 231 REM PAPER;1,23,1,32,\@@,
 232 PRINT AT 1,1;"BETTER TURN ON YOUR LIGHTS OK?               Y/N"
 233 INPUT A$
 234 IF A$="Y" THEN GOTO 240
 235 IF A$="N" THEN PRINT AT 1,1;"YOU SHOULD HAVE TURNED THEM ON  YOU HAVE CRASHED. PLAY AGAIN?        Y/N"
 236 INPUT A$
 237 IF A$="Y" THEN GOTO 1
 238 IF A$="N" THEN STOP 
 240 GOSUB 0
 241 REM UNPAPER;1,23,1,32,\@@,:DRAW;23,24,23,37,45,37,45,24,
 242 PRINT AT 1,1;"AH.....THE TUNNEL ENDS..                                                    "
 243 PAUSE 200
 244 GOTO 197
 290 SAVE "TRUCKI%N"
 291 PRINT "DRIVE OVER TO GET SOME FIRE WOODITS AS EASY AS THAT."
 292 PAUSE 250
 293 GOTO 1
 300 PRINT "YOU FINALY GOT HERE. IT  TOOK   SOME GOOD DRIVING TO DO IT. UH-  IS THAT PIG GUTS ON YOUR TRUCK?I£LL BET THERE£S AN ANGRY FARMEROUT THERE SOMEWHERE.             NOW THAT YOU MADE IT THIS FAR  YOU MAY AS WELL LOAD SIDE 2 AND SEE IF YOU CAN GET THAT FIRE    WOOD. GOOD LUCK."
 302 STOP 
 800 LET Q$="FIRE WOOD"
 801 LET R$="FOR SALE"
 802 GOSUB 0
 803 REM CLS:DRAW;31,0,31,16,16,16,16,31,47,31,47,16,32,16,32,0,:PRINT AT;9,12,Q$,:PRINT AT;13,12,R$,
 804 PRINT AT 1,1;"  CONGRATULATIONS..YOU MADE IT SO FAR.NOW LETS SEE IF YOU CAN  LOAD YOUR FIRE WOOD."
 805 PAUSE 300
 806 GOTO 300
 950 GOSUB 0
 951 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:PRINT AT;7,23,S$,
 952 RETURN 
 955 GOSUB 0
 956 REM UNDRAW;50,19,50,27,47,27,44,30,44,35,47,38,53,38,56,35,56,30,53,27,50,27,:MOVE;6,10,22,29,E,10,:MOVE;1,5,1,30,N,10,
 957 RETURN 
 960 GOSUB 0
 961 REM UNDRAW;63,40,49,40,49,25,63,25,:DRAW;50,19,50,27,44,33,50,38,56,32,50,27,
 962 RETURN 
 965 GOSUB 0
 966 REM UNDRAW;50,19,50,27,44,33,50,38,56,32,50,27,
 967 RETURN 
 970 GOSUB 0
 971 REM DRAW;52,30,52,33,47,33,49,35,47,33,49,31,
 972 RETURN 
 975 GOSUB 0
 976 REM UNDRAW;52,30,52,33,47,33,49,35,47,33,49,31,
 977 RETURN 
 980 GOSUB 0
 981 REM DRAW;48,30,48,33,52,33,50,35,52,33,50,31,
 982 RETURN 
 985 GOSUB 0
 986 REM UNDRAW;48,30,48,33,52,33,50,35,52,33,50,31,
 987 RETURN 
1000 GOSUB 0
1001 REM CLS:DRAW;63,40,49,40,49,25,63,25,:DRAW;1,10,24,10,27,6,63,6,:CIRCLE;10,14,3,:DRAW;63,5,34,25,3,10,
1002 RETURN