20 TONS #'%m 20 TONS  P Cooke Oct 1984  32000}:hi=0 9h(x)=(x/256):l(x)=x-256*h(x) &0:7:1:0: (23658j\,0 2 9100# c main menu d]0:7:0::1,11 ;" ";4,7;"** MAIN MENU **" n7,5;"1. PLAY GAME";9 ,5;"2. DESIGN SCREEN";11 ,5;"3. SAVE SCREENS > TAPE";13 ,5;"4. LOAD SCREENS < TAPE";15,5;"5. VIEW SCREENS" x!21,9 ;"PRESS 1 - 5" Z$=:Z$<"1"Z$>"5"200 Z$="2"5000:100d Z$="1"1000:100d 6z$="3""20TONS"37000,11000*:100d 6z$="4""20TONS"37000,11000*:100d z$="5"8000@:100d Tscore=0::"start on screen (1-20) ";ls:ls<1ls>201000: 87000X:q=0:ti=500:thisscore=0 ^n=110 :V=33000:y,x;5;""(n):n>5v=33018 &329960W=33006 m=110 :m:n cz$=:ox=x+(z$="p")-(z$="o"):oy=y+(z$="z")-(z$="a"):ox=xoy=yn=16:n:1100L ?v=33009:q=(oy,ox):q=70Fq=66B1100L q=68D.02{# =,36$:thisscore=thisscore+1:7,27;(thisscoretowin);"";0;" ";score+thisscore (thisscore01010 Xn=12:v=33012:v=33006:n:n=15:y,x;" "(n):v=33006:m=110 :m:n [_ti=0#1;1,0;1;" OUT OF TIME ":1130j `fti0#1;1,0;7;2;1;" CRUSHED "; jt1,-5:1,-5:#1;0,0;0;7;" GAME OVER " o%n=1200:n:200: t+score=score+thisscore:score>hihi=score ~ ty,x;5;1;"":n=116:v=33018:n:0:ls=ls+1:ls=21ls=1  1001  DESIGN SCREEN =ls=0:0:0:0::9000(#:BORDER 5"Load screen ?(y/n) ";y$:y$"y"y$"n"5010 y$="n"5070 ="load screen (1-20)";ls:ls<1ls>205030 7000X:load ls.  #1;0,0;"design screen keys a/z o/p";1,0;"space 1 ";1;" ";7;"2 ";2;" ";7;"3 ";3;" ";7;"4 ";4;" ";7;"5 ";6;"";7;" q end" Hx=1:y=1:ox=x:oy=y:o=1:man=0:exit=0 o$=" " ^oy,ox;0;o;o$(o+1):o=(y,x)-64@:y,x;9 ;8;;"+":ox=x:oy=y Mz$=:z$" "z$"a"z$"z"z$"p"z$"o"z$"q"(z$<"0"z$>"5")5110 z$="p"z$="o"z$="a"z$="z"x=x+(z$="p"x<25)-(z$="o"x>1):y=y+(z$="z"y<20)-(z$="a"y>1):5100  z$="q"5220d z$=" "z$="0" o=z$:o=5o=6 PHx=x+1:x=26x=1:y=y+1:y=21y=1 Z 5100 djsdun=0:edun=0:"":#1;0,0;"Please place start pos (s) and end pos (e)." ^oy,ox;0;o;o$(o+1):o=(y,x)-64@:y,x;9 ;8;;"+":ox=x:oy=y =z$=:z$"s"z$"e"z$"a"z$"z"z$"p"z$"o"5260 z$="p"z$="o"z$="a"z$="z"x=x+(z$="p"x<25)-(z$="o"x>1):y=y+(z$="z"y<20)-(z$="a"y>1):5250 'z$="e"eduno=7:edun=1 ;z$="s"sduno=5:sdun=1:xstart=x:ystart=y sdunedun5250 "oy,ox;0;o;o$(o+1) 5" OK to save? (Y/N) ";Y$:y$"y"y$"n"5300 y$="n"5600 L"save screen no(1-20) ";screen:screen<1screen>205400 | 6000p  ""Press C continue or Q quit ";y$ y$"c"y$"q"5610  y$="q"  5070 o SAVE SCREEN ps#1;0,0;1;" ** Saving ** Please wait.":ADD=37000+512*(SCREEN-1) zKX=1:Y=1:MAXSCORE=0:NOOFSHAPES=0:towin=0 oA=(Y,X)-64@:A=4MAXSCORE=MAXSCORE+1:7,29;maxscore;9 ,27;"(max)" VADD,A:ADD=ADD+1:A>2A5A7NOOFSHAPES=NOOFSHAPES+1 2:X=X+1:X=26X=1:Y=Y+1 Y<216020 ""SCORE TO FINISH ( max) ";towin towin>MAXSCORE6060 ^ADD,L(NOOFSHAPES):ADD+1,H(NOOFSHApES):ADD+2,L(towin):ADD+3,H(towin) "":#1;" ALL OK."  0: W LOAD SCREEN Xload screen ls bl9000(#:32992,(LS-1):V=33003:X=32990ހ:Y=32991߀:TOWIN=32995: @:ls=1:9000(# E*32992,(LS-1):V=33003 JI11 ,29;ls;" ";#1;1,10 ;"Screen ";ls;" "; Tn=1100d:"" Y9n:n=12:v=33009:v=33012:n ^(ls=ls+1:ls=21ls=1 h=""8005E r #(1:0:7:0,0;2;"";:n=120:n,0;2;"";1;"";2;"":n:21,0;2;""; #22,28;"";3,27;"";5,27;"Score";7,27;" 0";9 ,27;"Sheet";11 ,29;ls;13 ,27;"High";15,29;hi;17,27;"Time" #< #13 ,9 ;"20 tons":30,30:30,80P:80P,0:30,-80P:-140,0:80P,110n:0,5:40(,0:0,-5:100d,125},10 #a$=" Twenty tons. Collect the rings through twenty screens , but avoid the 20 ton weights and the 'eaters'...................... Press a key to start. " #21,0;1;a$(32 ):254,0:254,16:a$=a$(2)+a$(1):5:=""9120# # '0:7:0:32000}:5,12 ;"20 tons.";7,10 ;"Loading Code";9 ,10 ;"Please wait.":"":"": A. Press a key to start. Twenty tons. Collect the rings through twenty screens , but avoid the 20 ton weights and the 'eaters'..................... vcorxyowiqhisscor wZa :р:v{âóӄ>22!:2~( O > ####:2 :ONF҃o>D(6҃o>@(>C ͑p6ͥ>2>E ~F͑ͥp6>22>F(>D( >C(j6FN ҃o>@ ҃o>@  ͑ q6ͥ>2NF ҃o>@ ҃o>@  ͑ q6ͥ>26͑p66ͥ>2NF҃o>F(6҃o>@(>C ͑pͺ6>2>E ~͑ͺ>22>D( >F(6NF ҃o>@ ҃o>@  ͑ ͺq6>2NF ҃o>@ ҃o>@  ͑ ͺq6>26NF҃o>C(6>2~g:x\(%|w'!o|g~O#~G҃o>@(>E(/:2NF~NF͑qpƃs>2͝>ͱ> >xy͝>Dͱ>>͝>Fͱ>͝>Cͱ>&h)))))Xyo>g~:'!g!>2~ͱ͝8' y2ހx2߀(wqp6####n_zW#yO xG N#F#~2#~2C d!:H\8???F#F#!X~w# x :H\8???d:H\8???Oy>dGy>dGdG                                                                             gSTCAL ORUTugAɣīTIҳDһADD`b C`bJNDXOR BITz@RNEDOHALv&b`h"d 0,fN*.Sj$(lb2b8642n`c(&$"f 8642f.,*jbd0hbd08tt8|4DDABYuCDyE"zF,|G}IyL{K|MI~N~P}RySzT|VW|Xw { z0{C:{ [~F{ID{KzLRQsSZ{RzX?{ZI{Pardon? 5210 10 b p,/IP+HKI#!H#xv Table size: Options: Bad ORG! Start tape.. Using Bad Memory! Found Interrupted Buffer size? *ERROR* *WARNING* Pass 1 Pass 2 errors: absentTable used: from Executes: No Table space! *HISOFT GENS2 ASSEMBLER* Copyright HISOFT 1983 All rights reserved  b w%qv & P Wq P \ !u\ ?:\zx\ xw GENS20T -8 ; 20  RT LD IX DFLAG) RG3 V LDK MCfT2&2:>(O Kܥ=E:\5c_*5 7T( H6 R$3 Xр]$~~`<| AD