Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape13a_acorn_eu_1990_july.wav » guide
guide
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape13a_acorn_eu_1990_july.wav |
| Filename: | guide |
| Read OK: | ✔ |
| File size: | 22DF bytes |
| Load address: | 2000 |
| Exec address: | 1900 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- AEW website » database » database_5_25_discs_Electron-User-7-10_D-E710.ssd » GUIDE
- AEW website » database » database_tapes_Electron-User-7-10_EU7-10_E.uef » guide
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape13a_acorn_eu_1990_july.wav » guide
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape13b_acorn_eu_1990_july.wav » guide
File contents
10REM***************************
20REM* THE BEGINNER'S GUIDE TO *
30REM* THE GALAXY ! *
40REM* BY DARREN BRADLEY *
50REM* (c) Electron User *
60REM***************************
70:
80MODE4:VDU23;8202;0;0;0;19,1,3;0;:OSCLI"FX229,1":ONERROR MODE6:REPORT:PRINT" at line ";ERL:OSCLI"FX229,0":END
90PROCva:PROCsc:PROCship:PROCmo:END
100:
110DEFPROCva:DIMme$(3),sx%(50),sy%(50),pl$(9),cx%(7),cy%(7),ro%(9),di%(9),de$(9,5),pn%(9),c(72),s(72),vo(9):VDU23,224,0,4,6,255,255,6,4,0,23,225,0,0,0,0,0,0,0,255,23,226,8,24,8,8,8,28,0,255,23,229,255,255,255,255,255,255,255,255:te%=0
120VDU23,254,8,24,8,8,8,28,0,255,23,234,96,240,248,112,48,16,16,8,23,235,0,12,30,12,4,0,0,0,23,230,1,2,4,8,16,32,64,128,23,231,128,64,32,16,8,4,2,1,23,232,0,0,0,0,24,36,66,129,23,233,255,0,0,0,0,0,0,0:xc%=1:sp$=STRING$(10,CHR$229)
130sp$=STRING$(10,CHR$229):dv$=STRING$(3,CHR$95)+CHR$254+STRING$(3,CHR$95):FORn=0TO2:READme$(n):NEXT:x$=CHR$32:y$=CHR$95
140a$=x$+x$+CHR$232+x$+x$+x$+x$+CHR$230+CHR$233+CHR$231+x$+x$+CHR$232+x$+x$+CHR$230+CHR$231+x$+x$+x$+CHR$232+x$+x$+CHR$230+CHR$233+CHR$231+x$+x$+x$+CHR$232+x$+x$+x$+x$+CHR$230+CHR$231+x$+x$
150a1$=y$+CHR$230+x$+CHR$231+y$+y$+CHR$230+x$+x$+x$+CHR$231+CHR$230+x$+CHR$231+CHR$230+x$+x$+CHR$231+y$+CHR$230+x$+CHR$231+CHR$230+x$+x$+x$+CHR$231+y$+CHR$230+x$+CHR$231+y$+y$+CHR$230+x$+x$+CHR$231+y$
160ENVELOPE1,0,127,127,127,255,255,255,126,0,0,-126,126,126:FORn=1TO9:READpl$(n),ro%(n),di%(n),de$(n,0),de$(n,2):NEXT:FORn=1TO45:READsx%(n),sy%(n):NEXT:i=0:FORn=0TO315 STEP45:cx%(i)=640+(COS(RAD(n))*210):cy%(i)=600+(SIN(RAD(n))*210)
170i=i+1:NEXT:FORn=1TO4:de$(n,1)="INNER":NEXT:FORn=5TO9:de$(n,1)="OUTER":NEXT:FORn=0TO9:READa,b,c$:de$(a,b)=c$:NEXT:FORn=5TO8:de$(n,4)="GASEOUS":de$(n,5)="TOXIC GASES (HYDROGEN)":NEXT:FORn=1TO9:de$(n,3)="ANTI-CLOCKWISE":NEXT
180de$(2,3)="CLOCKWISE":FORn=0TO360STEP5:c(n/5)=COS(RAD(n)):s(n/5)=SIN(RAD(n)):NEXT:FORn=1TO9:READpn%(n),vo(n):NEXT:ENDPROC
190:
200DEFPROCsc:VDU18,0,1,5:DRAW0,1023:DRAW1279,1023:DRAW1279,0:DRAW0,0:MOVE0,300:DRAW1279,300:MOVE0,900:DRAW1279,900:MOVE1279,252:DRAW0,252:MOVE340,1023:DRAW340,900:MOVE340,962:DRAW1279,962::MOVE1220,900:DRAW1220,962:FORn=0TO340STEP10
210MOVEn,1023:DRAWn,900:NEXT:FORn=902TO1022STEP10:MOVE0,n:DRAW340,n:NEXT:GCOL0,0:FORn=994TO962STEP-16:MOVE26,n:PRINTSTRING$(9,CHR$229):NEXT:MOVE42,978:GCOL0,1:PRINT"{V:1.00}":PROCtx("WELCOME TO ...",416,868):VDU18,0,1
220PROCtx("THE BEGINNER'S GUIDE TO THE GALAXY !",64,290):VDU18,0,1,5:MOVE362,1005:PRINTSTRING$(28,CHR$229):GCOL0,0:MOVE362,1005:PRINT" ELECTRON USER ":VDU18,0,128,18,0,1:MOVE348,947:PRINT"PRESENT MODE:":ENDPROC
230:
240DEFPROCmo:PROCpm(0):VDU28,1,30,38,25,12:VDU5:MOVE1235,945:GCOL0,1:VDU67,4:PROCpd:PROCke:GCOL4,0:PROCdr(46,1):REPEAT:ch%=xc%:IFINKEY-98 xc%=xc%-5:SOUND1,-15,150,1
250IFINKEY-67 xc%=xc%+5:SOUND1,-15,150,1
260IFINKEY-83 SOUND1,-15,200,1:GCOL0,0:MOVE1235,945:VDU19,1,3;0;5,229:MOVE1235,945:VDU18,0,1,67,4
270IFINKEY-101 SOUND1,-15,100,1:GCOL0,0:MOVE1235,945:VDU19,1,7;0;5,229:MOVE1235,945:VDU18,0,1,66,4
280IFxc%<1 xc%=ch%
290IFxc%>45 xc%=ch%
300IFINKEY-74 SOUND1,1,200,2:PROCpl(xc%):PROCpm(0)
310IFte% PROCdrII(ch%):te%=NOT(te%)
320PROCdr(ch%,xc%):UNTIL0:ENDPROC
330:
340DEFPROCtx(a$,x%,y%):LOCALa%,b%:VDU18,0,1,5:FORa%=y%-4 TOy%+4 STEP4:FORb%=x%-4 TOx%+4 STEP4:MOVEb%,a%:PRINTa$:NEXT,:GCOL0,0:MOVEx%,y%:PRINTa$:VDU4:ENDPROC
350:
360DEFPROCpm(w):VDU18,0,0,5:MOVE796,947:PRINTsp$:GCOL0,1:MOVE796,947:PRINTme$(w):VDU4:ENDPROC
370:
380DEFPROCdr(ol%,nw%):GCOL4,0:MOVEsx%(ol%),sy%(ol%):FORn=1TO4:DRAWsx%(ol%+n),sy%(ol%+n):NEXT:MOVEsx%(nw%),sy%(nw%):FORn=1TO4:DRAWsx%(nw%+n),sy%(nw%+n):NEXT:ENDPROC
390:
400DEFPROCpl(f%):ca%=(f%/5)+1:CLS:PRINTTAB(0,0)"Planet Name: ";pl$(ca%);TAB(0,1);"<D>etails, or"'"<M>easurements ?"''"<SPACE-BAR> to continue..."
410OSCLI"FX21":wa%=GET:IFwa%=68 PROCpm(1):PROCde(ca%):PROCke:ENDPROC
420IFwa%=77 PROCpm(2):PROCmes:PROCke:ENDPROC
430IFwa%=32 PROCke:ENDPROC ELSE410
440:
450DEFPROCmes:CLS:PRINTTAB(0,0)"Planet Name: ";pl$(ca%);TAB(0,1);"<D>istance apart, or"'"<S>ize difference ?"''"<SPACE-BAR> to continue..."
460OSCLI"FX21":wa%=GET:IFwa%=68 PROCme(f%,ca%):PROCke:ENDPROC
470IFwa%=83 PROCfi(ca%):PROCke:ENDPROC
480IFwa%=32 PROCke:ENDPROC ELSE460
490:
500DEFPROCme(fr%,fm%):a=0:q%=0:qq%=0:c%=0:cc%=0:ds$="":ds%=0:CLS:PRINTTAB(0,0);"Measuring from ";pl$(fm%);" to":VDU26,28,1,30,38,26
510INPUT"=> "a$:co%=-1:FORn=1TO9:IFa$=pl$(n) co%=n:NEXT ELSENEXT
520GCOL4,0:IFco%=-1 ORa$="" ORa$=pl$(fm%) CLS:PROCms:GOTO510
530to%=((co%-1)*5)+1:q%=sx%(fr%+1)-((sx%(fr%+1)-sx%(fr%))/2):qq%=sx%(to%+1)-((sx%(to%+1)-sx%(to%))/2):c%=q%+(qq%-q%)/2:cc%=qq%+(q%-qq%)/2:FORg=0TO1:MOVEsx%(to%),sy%(to%):FORn=1TO4:DRAWsx%(to%+n),sy%(to%+n):NEXT:MOVEq%,sy%(fr%+3)
540DRAWq%,450:DRAWqq%,450:DRAWqq%,sy%(to%+3):IFqq%<q% MOVEcc%,463:VDU5,60,4 ELSEMOVEc%,463:VDU5,62,4
550ds%=ABS(di%(co%)-di%(fm%)):ds$=FNco(ds%):PRINT"Distance between them ="';ds%;" million kilometres":IFa=0 PROCsb:a=1:VDU30:NEXT
560NEXT:VDU12,26,28,1,30,38,25,12:ENDPROC
570:
580DEFPROCms:LOCALa,n:a=RND(4):ONa GOSUB600,610,620,630
590FORn=0TO2000:NEXT:CLS:ENDPROC
600PRINT"I'm not having that!":RETURN
610PRINT"Don't be so stupid!":RETURN
620PRINT"You're not clever you know!":RETURN
630PRINT"Trying to confuse me, eh?":RETURN
640:
650DEFPROCke:CLS:PRINTTAB(12);:VDU17,129,17,0:PRINT"< MAIN MENU >":VDU17,128,17,1:PRINTTAB(8)"Z .... Move block left"'TAB(7)"X ..... Move block right"'TAB(6)"RETURN ..... Select planet"'TAB(2)"C ... Colour B ... Black & White":ENDPROC
660:
670DEFPROCde(no%):CLS:PRINTTAB(0,0)"Planet Name: ";pl$(no%);TAB(0,1);"<R>otation time, or"'"<S>tructural details ?"''"<SPACE-BAR> to continue..."
680OSCLI"FX21":wa%=GET:IFwa%=82 PROCro(no%):PROCke:ENDPROC
690IFwa%=83 PROCst(no%):PROCke:ENDPROC
700IFwa%=32 PROCke:ENDPROC ELSE680
710:
720DEFPROCrc:LOCALn,o,k,k1,s%,a%:VDU24,4;304;1274;896;16,26,24,4;304;1274;896;28,1,30,38,25:s%=ro%(p%)/8:a%=-s%:PROCci(640,600,150,150):VDU18,0,0,5:MOVE592,632:PRINT"THE":MOVE592,600:PRINT"SUN":VDU18,0,1,4:FORn=0TO7:VDU29,cx%(n);cy%(n);
730FORo=0TO71STEP4:PLOT69,c(o)*35,s(o)*35:NEXT:a%=a%+s%:ti$=FNco(a%):k=100+ABS(LEN(ti$)-2)*32:k1=(LEN(ti$)*32)/2:VDU5:IFn=0 MOVE50,32:PRINT;ti$;" to":MOVE50,0:end$=FNco(ro%(p%)):PRINT;end$;" days.":NEXT
740IFn=2 MOVE-k1,75 ELSEIFn=6 MOVE-k1,-43 ELSEIFn>2 ANDn<6 MOVE-(LEN(ti$))-k,16 ELSE MOVE50,16
750PRINT;ti$:NEXT:VDU4:PRINTTAB(0,2)"One year on ";pl$(p%);" is"'"equal to ";ro%(p%);" days.":PROCsb:VDU29,0;0;16,26,28,1,30,38,25,12:PROCpd:ENDPROC
760:
770DEFPROCro(p%):CLS:PRINT"Time take for ";pl$(p%);" to complete"'"one rotation of the sun, in days.":PROCrc:te%=-1:ENDPROC
780:
790DEFPROCsb:PRINT"Press <SPACE-BAR> to continue":REPEATUNTILGET=32:ENDPROC
800:
810DEFPROCdrII(ol%):GCOL4,0:MOVEsx%(ol%),sy%(ol%):FORn=1TO4:DRAWsx%(ol%+n),sy%(ol%+n):NEXT:ENDPROC
820:
830DEFFNco(r%):a$=STR$(r%):IFLEN(a$)<=3 num$=a$:=num$
840e=LEN(a$)-3:b$=RIGHT$(a$,3):c$=LEFT$(a$,e):num$=c$+","+b$:=num$
850:
860DEFFNco2(r):a$=STR$r:e=0:FORn=1TOLEN(a$):IFMID$(a$,n,1)="." e=n
870NEXT:IFe<>0 r$=LEFT$(a$,e+2)
880=r$
890:
900DEFPROCst(pl%):VDU12,24,4;304;1274;896;16,26,28,1,21,38,4,12,17,129,17,0:PRINTTAB(2,0);"< STRUCTURAL DETAILS OF ";pl$(pl%);" >":VDU17,128,17,1:PRINTTAB(0,2)"* EQUATORIAL DIAMETER:"''"* PLANETARY GROUP:"'
910PRINT"* TURNS ON AXIS (ie:One day):"''"* ROTATIONAL DIRECTION:"''"* PLANET'S SURFACE:"''"* ATMOSPHERIC CONSISTENCY:":VDU17,129,17,0:i=0:FORn=3TO13 STEP2:PRINTTAB(2,n);de$(pl%,i):i=i+1:NEXT:VDU10,17,128,17,1:PROCsb:CLS
920VDU28,1,30,38,25,24,0;0;1279;1023;:te%=-1:PROCpd:ENDPROC
930:
940DEFPROCci(x,y,a,b):FORn=0TO71STEP2:MOVEx,y:MOVEx+c(n)*a,y+s(n)*b:PLOT85,x+c(n+2)*a,y+s(n+2)*b:NEXT:ENDPROC
950:
960DEFPROCpd:RESTORE1190:PRINT"PLEASE WAIT ...":FORl=0TO200:PLOT69,RND(1280),RND(600)+300:NEXT:FORl=0TO12:READf,g,h,i,j:GCOL0,f:PROCci(g,h,i,j):NEXT:VDU5:GCOL0,0:MOVE194,575:VDU234,8,10,235:GCOL0,1:VDU4:CLS:ENDPROC
970:
980DEFPROCfi(n%):CLS:VDU24,4;304;1274;896;16,26,24,4;304;1274;896;28,1,30,38,25:PRINTTAB(0,0);"Comparing the size of ";pl$(n%)';"to that of":VDU26,28,1,30,38,27
990INPUT"=> "a$:o%=-1:FORn=1TO9:IFa$=pl$(n) o%=n:NEXT ELSENEXT
1000IFo%=-1 ORa$="" ORa$=pl$(n%) CLS:PROCms:GOTO990
1010MOVE325+c(0)*pn%(o%),640+s(0)*pn%(o%):FORn=0TO72:DRAW325+c(n)*pn%(o%),640+s(n)*pn%(o%):NEXT:MOVE955+c(0)*pn%(n%),640+s(0)*pn%(n%):FORn=0TO72:DRAW955+c(n)*pn%(n%),640+s(n)*pn%(n%):NEXT:VDU5:x=955:y=644+s(54)*pn%(n%):a=0:z%=935-pn%(n%)
1020zz%=345+pn%(o%):l%=(z%-zz%)/10:ll=((640+pn%(n%))-(640-pn%(n%)))/4:pr=0:p=(vo(n%)/vo(o%))/ll:pp=p:IFll*p<1 p=(vo(o%)/vo(n%))/ll:pp=p:pr=1
1030VDU26:REPEAT:IFPOINT(x,y)=0 PLOT77,x,y:y=y+4:p=p+pp:PROCpo(pr)
1040la=a:GCOL0,0:MOVEzz%+(la*l%),640:VDU224,18,0,1:a=a+1:IFa=10 a=0
1050MOVEzz%+(a*l%),640:VDU224:UNTILPOINT(x,y):MOVEzz%+(a*l%),640:VDU18,0,0,224,4,18,0,1:VDU28,1,30,38,25:PRINTTAB(0,3);:PROCsb:VDU24,4;304;1274;896;16,26,28,1,30,38,25,12:PROCpd:te%=-1:ENDPROC
1060:
1070DEFPROCpo(a):VDU4:p$=FNco2(p):IFpr=0 PRINTTAB(1,20);pl$(n%);" has ";p$;" ";TAB(1,21);"times the volume of ";pl$(o%):VDU5:ENDPROC
1080PRINTTAB(3,20);pl$(n%);" has ";CHR$11;dv$;CHR$10;STRING$(7,CHR$8);p$;TAB(3,21);"the volume of ";pl$(o%):VDU5:ENDPROC
1090:
1100DEFPROCship:MOVE300,520:DRAW1000,520:DRAW900,470:DRAW540,470:MOVE340,470:DRAW300,470:DRAW300,520:MOVE320,520:DRAW320,670:DRAW420,670:DRAW520,570:DRAW520,520:MOVE520,570:DRAW670,570:DRAW720,520:MOVE370,495:DRAW570,495:DRAW470,420
1110DRAW270,420:DRAW370,495:VDU4:PRINTTAB(1,19);a$;TAB(1,20);a1$;TAB(11,27);"Press <SPACE-BAR>":FORn=0TO1000:NEXT:VDU28,1,18,38,6:FORn=1TO15:VDU10:NEXT:VDU26:REPEAT:OSCLI"FX19":b$=RIGHT$(a$,37):b1$=RIGHT$(a1$,37):b$=b$+LEFT$(a$,1)
1120b1$=b1$+LEFT$(a1$,1):a$=b$:a1$=b1$:PRINTTAB(1,19);a$;TAB(1,20);a1$:UNTILINKEY-99:VDU24,4;304;1274;896;16,26:ENDPROC
1130:
1140DATA SCANNING,DETAILS,MEASURING,MERCURY,88,58,"4,850km",59 DAYS,VENUS,225,108,"12,140km",247 DAYS,EARTH,365,150,"12,756km",23 hrs:56 mins,MARS,687,228,"6,970km",24 hrs:37 mins,JUPITER,4288.75,778,"142,600km",9 hrs:50 mins,SATURN
1150DATA 10767.5,1427,"120,200km",10 hrs:14 mins,URANUS,30660,2870,"49,000km",10 hrs:49 mins,NEPTUNE,60225,4497,"50,200km",15 hrs:48 mins,PLUTO,90520,5900,"6,400km",6 DAYS:9 hrs,4,515,25,515,25,480,4,480,4,512,50,555,110,555,110,490,50
1160DATA490,50,555,170,590,250,590,250,515,170,515,170,590,320,615,380,615,380,540,320,540,320,615,470,765,695,765,695,530,470,530,470,765,705,805,995,805,995,560,705,560,705,805,990,745,1105,745,1105,630,990,630,990,745,1110,760,1210
1170DATA760,1210,650,1110,650,1110,760,1230,720,1265,720,1265,690,1230,690,1230,720,1,4,SCORCHED ROCK,1,5,NONE,2,4,HOT ROCK,2,5,CARBON DIOXIDE,3,4,MANAGABLE ROCK,3,5,NITROGEN/OXYGEN,4,4,ROCK/DUST,4,5,MOSTLY NITROGEN,9,4,VERY COLD ROCK,9
1180DATA5,NONE,30,597,80,9368,100,10868,60,1773,240,15182986,220,9093101,180,616009,190,662384,40,1372
1190DATA1,14,497,6,6,1,80,522,22,22,1,210,552,30,30,1,350,577,20,20,1,582,647,100,100,0,570,600,12,12,1,850,682,80,80,1,850,682,130,40,0,850,682,110,30,1,850,692,100,30,1,1047,687,40,40,1,1160,705,41,41,1,1247,705,8,8
�***************************
�* THE BEGINNER'S GUIDE TO *
�* THE GALAXY ! *
( �* BY DARREN BRADLEY *
2 �* (c) Electron User *
< �***************************
F:
PN�4:�23;8202;0;0;0;19,1,3;0;:�"FX229,1":� �6:�:�" at line ";�:�"FX229,0":�
Z�va:�sc:�ship:�mo:�
d:
n���va:�me$(3),sx%(50),sy%(50),pl$(9),cx%(7),cy%(7),ro%(9),di%(9),de$(9,5),pn%(9),c(72),s(72),vo(9):�23,224,0,4,6,255,255,6,4,0,23,225,0,0,0,0,0,0,0,255,23,226,8,24,8,8,8,28,0,255,23,229,255,255,255,255,255,255,255,255:te%=0
x��23,254,8,24,8,8,8,28,0,255,23,234,96,240,248,112,48,16,16,8,23,235,0,12,30,12,4,0,0,0,23,230,1,2,4,8,16,32,64,128,23,231,128,64,32,16,8,4,2,1,23,232,0,0,0,0,24,36,66,129,23,233,255,0,0,0,0,0,0,0:xc%=1:sp$=�10,�229)
�Isp$=�10,�229):dv$=�3,�95)+�254+�3,�95):�n=0�2:�me$(n):�:x$=�32:y$=�95
��a$=x$+x$+�232+x$+x$+x$+x$+�230+�233+�231+x$+x$+�232+x$+x$+�230+�231+x$+x$+x$+�232+x$+x$+�230+�233+�231+x$+x$+x$+�232+x$+x$+x$+x$+�230+�231+x$+x$
��a1$=y$+�230+x$+�231+y$+y$+�230+x$+x$+x$+�231+�230+x$+�231+�230+x$+x$+�231+y$+�230+x$+�231+�230+x$+x$+x$+�231+y$+�230+x$+�231+y$+y$+�230+x$+x$+�231+y$
���1,0,127,127,127,255,255,255,126,0,0,-126,126,126:�n=1�9:�pl$(n),ro%(n),di%(n),de$(n,0),de$(n,2):�:�n=1�45:�sx%(n),sy%(n):�:i=0:�n=0�315 �45:cx%(i)=640+(�(�(n))*210):cy%(i)=600+(�(�(n))*210)
��i=i+1:�:�n=1�4:de$(n,1)="INNER":�:�n=5�9:de$(n,1)="OUTER":�:�n=0�9:�a,b,c$:de$(a,b)=c$:�:�n=5�8:de$(n,4)="GASEOUS":de$(n,5)="TOXIC GASES (HYDROGEN)":�:�n=1�9:de$(n,3)="ANTI-CLOCKWISE":�
�\de$(2,3)="CLOCKWISE":�n=0�360�5:c(n/5)=�(�(n)):s(n/5)=�(�(n)):�:�n=1�9:�pn%(n),vo(n):�:�
�:
Ȭ��sc:�18,0,1,5:�0,1023:�1279,1023:�1279,0:�0,0:�0,300:�1279,300:�0,900:�1279,900:�1279,252:�0,252:�340,1023:�340,900:�340,962:�1279,962::�1220,900:�1220,962:�n=0�340�10
Җ�n,1023:�n,900:�:�n=902�1022�10:�0,n:�340,n:�:�0,0:�n=994�962�-16:�26,n:��9,�229):�:�42,978:�0,1:�"{V:1.00}":�tx("WELCOME TO ...",416,868):�18,0,1
ܭ�tx("THE BEGINNER'S GUIDE TO THE GALAXY !",64,290):�18,0,1,5:�362,1005:��28,�229):�0,0:�362,1005:�" ELECTRON USER ":�18,0,128,18,0,1:�348,947:�"PRESENT MODE:":�
�:
�w��mo:�pm(0):�28,1,30,38,25,12:�5:�1235,945:�0,1:�67,4:�pd:�ke:�4,0:�dr(46,1):�:ch%=xc%:�-98 xc%=xc%-5:�1,-15,150,1
� �-67 xc%=xc%+5:�1,-15,150,1
L�-83 �1,-15,200,1:�0,0:�1235,945:�19,1,3;0;5,229:�1235,945:�18,0,1,67,4
M�-101 �1,-15,100,1:�0,0:�1235,945:�19,1,7;0;5,229:�1235,945:�18,0,1,66,4
�xc%<1 xc%=ch%
"�xc%>45 xc%=ch%
,$�-74 �1,1,200,2:�pl(xc%):�pm(0)
6 �te% �drII(ch%):te%=�(te%)
@�dr(ch%,xc%):�0:�
J:
Tj��tx(a$,x%,y%):�a%,b%:�18,0,1,5:�a%=y%-4 �y%+4 �4:�b%=x%-4 �x%+4 �4:�b%,a%:�a$:�,:�0,0:�x%,y%:�a$:�4:�
^:
h>��pm(w):�18,0,0,5:�796,947:�sp$:�0,1:�796,947:�me$(w):�4:�
r:
|~��dr(ol%,nw%):�4,0:�sx%(ol%),sy%(ol%):�n=1�4:�sx%(ol%+n),sy%(ol%+n):�:�sx%(nw%),sy%(nw%):�n=1�4:�sx%(nw%+n),sy%(nw%+n):�:�
�:
����pl(f%):ca%=(f%/5)+1:�:�0,0)"Planet Name: ";pl$(ca%);�0,1);"<D>etails, or"'"<M>easurements ?"''"<SPACE-BAR> to continue..."
�/�"FX21":wa%=�:�wa%=68 �pm(1):�de(ca%):�ke:�
� �wa%=77 �pm(2):�mes:�ke:�
��wa%=32 �ke:� ��tZA
�:
�{��mes:�:�0,0)"Planet Name: ";pl$(ca%);�0,1);"<D>istance apart, or"'"<S>ize difference ?"''"<SPACE-BAR> to continue..."
�+�"FX21":wa%=�:�wa%=68 �me(f%,ca%):�ke:�
��wa%=83 �fi(ca%):�ke:�
��wa%=32 �ke:� ��dLA
�:
�t��me(fr%,fm%):a=0:q%=0:qq%=0:c%=0:cc%=0:ds$="":ds%=0:�:�0,0);"Measuring from ";pl$(fm%);" to":�26,28,1,30,38,26
�0�"=> "a$:co%=-1:�n=1�9:�a$=pl$(n) co%=n:� ��
0�4,0:�co%=-1 �a$="" �a$=pl$(fm%) �:�ms:�d~A
�to%=((co%-1)*5)+1:q%=sx%(fr%+1)-((sx%(fr%+1)-sx%(fr%))/2):qq%=sx%(to%+1)-((sx%(to%+1)-sx%(to%))/2):c%=q%+(qq%-q%)/2:cc%=qq%+(q%-qq%)/2:�g=0�1:�sx%(to%),sy%(to%):�n=1�4:�sx%(to%+n),sy%(to%+n):�:�q%,sy%(fr%+3)
N�q%,450:�qq%,450:�qq%,sy%(to%+3):�qq%<q% �cc%,463:�5,60,4 ��c%,463:�5,62,4
&rds%=�(di%(co%)-di%(fm%)):ds$=�co(ds%):�"Distance between them ="';ds%;" million kilometres":�a=0 �sb:a=1:�30:�
0 �:�12,26,28,1,30,38,25,12:�
::
D,��ms:�a,n:a=�(4):�a �DXB,�DbB,�DlB,�DvB
N�n=0�2000:�:�:�
X �"I'm not having that!":�
b �"Don't be so stupid!":�
l$�"You're not clever you know!":�
v"�"Trying to confuse me, eh?":�
�:
����ke:�:�12);:�17,129,17,0:�"< MAIN MENU >":�17,128,17,1:�8)"Z .... Move block left"'�7)"X ..... Move block right"'�6)"RETURN ..... Select planet"'�2)"C ... Colour B ... Black & White":�
�:
����de(no%):�:�0,0)"Planet Name: ";pl$(no%);�0,1);"<R>otation time, or"'"<S>tructural details ?"''"<SPACE-BAR> to continue..."
�(�"FX21":wa%=�:�wa%=82 �ro(no%):�ke:�
��wa%=83 �st(no%):�ke:�
��wa%=32 �ke:� ��thB
�:
����rc:�n,o,k,k1,s%,a%:�24,4;304;1274;896;16,26,24,4;304;1274;896;28,1,30,38,25:s%=ro%(p%)/8:a%=-s%:�ci(640,600,150,150):�18,0,0,5:�592,632:�"THE":�592,600:�"SUN":�18,0,1,4:�n=0�7:�29,cx%(n);cy%(n);
ڣ�o=0�71�4:�69,c(o)*35,s(o)*35:�:a%=a%+s%:ti$=�co(a%):k=100+�(�(ti$)-2)*32:k1=(�(ti$)*32)/2:�5:�n=0 �50,32:�;ti$;" to":�50,0:end$=�co(ro%(p%)):�;end$;" days.":�
�C�n=2 �-k1,75 ��n=6 �-k1,-43 ��n>2 �n<6 �-(�(ti$))-k,16 � �50,16
�w�;ti$:�:�4:�0,2)"One year on ";pl$(p%);" is"'"equal to ";ro%(p%);" days.":�sb:�29,0;0;16,26,28,1,30,38,25,12:�pd:�
�:
h��ro(p%):�:�"Time take for ";pl$(p%);" to complete"'"one rotation of the sun, in days.":�rc:te%=-1:�
:
2��sb:�"Press <SPACE-BAR> to continue":���=32:�
:
*I��drII(ol%):�4,0:�sx%(ol%),sy%(ol%):�n=1�4:�sx%(ol%+n),sy%(ol%+n):�:�
4:
>-ݤco(r%):a$=�(r%):�(a$)<=3 num$=a$:=num$
H6e=�(a$)-3:b$=�a$,3):c$=�a$,e):num$=c$+","+b$:=num$
R:
\3ݤco2(r):a$=�r:e=0:�n=1��(a$):�a$,n,1)="." e=n
f�:�e<>0 r$=�a$,e+2)
p=r$
z:
����st(pl%):�12,24,4;304;1274;896;16,26,28,1,21,38,4,12,17,129,17,0:�2,0);"< STRUCTURAL DETAILS OF ";pl$(pl%);" >":�17,128,17,1:�0,2)"* EQUATORIAL DIAMETER:"''"* PLANETARY GROUP:"'
���"* TURNS ON AXIS (ie:One day):"''"* ROTATIONAL DIRECTION:"''"* PLANET'S SURFACE:"''"* ATMOSPHERIC CONSISTENCY:":�17,129,17,0:i=0:�n=3�13 �2:�2,n);de$(pl%,i):i=i+1:�:�10,17,128,17,1:�sb:�
�1�28,1,30,38,25,24,0;0;1279;1023;:te%=-1:�pd:�
�:
�Q��ci(x,y,a,b):�n=0�71�2:�x,y:�x+c(n)*a,y+s(n)*b:�85,x+c(n+2)*a,y+s(n+2)*b:�:�
�:
����pd:��tfD:�"PLEASE WAIT ...":�l=0�200:�69,�(1280),�(600)+300:�:�l=0�12:�f,g,h,i,j:�0,f:�ci(g,h,i,j):�:�5:�0,0:�194,575:�234,8,10,235:�0,1:�4:�:�
�:
ԏ��fi(n%):�:�24,4;304;1274;896;16,26,24,4;304;1274;896;28,1,30,38,25:�0,0);"Comparing the size of ";pl$(n%)';"to that of":�26,28,1,30,38,27
�.�"=> "a$:o%=-1:�n=1�9:�a$=pl$(n) o%=n:� ��
�)�o%=-1 �a$="" �a$=pl$(n%) �:�ms:�d^C
���325+c(0)*pn%(o%),640+s(0)*pn%(o%):�n=0�72:�325+c(n)*pn%(o%),640+s(n)*pn%(o%):�:�955+c(0)*pn%(n%),640+s(0)*pn%(n%):�n=0�72:�955+c(n)*pn%(n%),640+s(n)*pn%(n%):�:�5:x=955:y=644+s(54)*pn%(n%):a=0:z%=935-pn%(n%)
��zz%=345+pn%(o%):l%=(z%-zz%)/10:ll=((640+pn%(n%))-(640-pn%(n%)))/4:pr=0:p=(vo(n%)/vo(o%))/ll:pp=p:�ll*p<1 p=(vo(o%)/vo(n%))/ll:pp=p:pr=1
/�26:�:�x,y)=0 �77,x,y:y=y+4:p=p+pp:�po(pr)
:la=a:�0,0:�zz%+(la*l%),640:�224,18,0,1:a=a+1:�a=10 a=0
��zz%+(a*l%),640:�224:��x,y):�zz%+(a*l%),640:�18,0,0,224,4,18,0,1:�28,1,30,38,25:�0,3);:�sb:�24,4;304;1274;896;16,26,28,1,30,38,25,12:�pd:te%=-1:�
$:
.i��po(a):�4:p$=�co2(p):�pr=0 �1,20);pl$(n%);" has ";p$;" ";�1,21);"times the volume of ";pl$(o%):�5:�
8V�3,20);pl$(n%);" has ";�11;dv$;�10;�7,�8);p$;�3,21);"the volume of ";pl$(o%):�5:�
B:
L���ship:�300,520:�1000,520:�900,470:�540,470:�340,470:�300,470:�300,520:�320,520:�320,670:�420,670:�520,570:�520,520:�520,570:�670,570:�720,520:�370,495:�570,495:�470,420
V��270,420:�370,495:�4:�1,19);a$;�1,20);a1$;�11,27);"Press <SPACE-BAR>":�n=0�1000:�:�28,1,18,38,6:�n=1�15:�10:�:�26:�:�"FX19":b$=�a$,37):b1$=�a1$,37):b$=b$+�a$,1)
`Xb1$=b1$+�a1$,1):a$=b$:a1$=b1$:�1,19);a$;�1,20);a1$:��-99:�24,4;304;1274;896;16,26:�
j:
t�� SCANNING,DETAILS,MEASURING,MERCURY,88,58,"4,850km",59 DAYS,VENUS,225,108,"12,140km",247 DAYS,EARTH,365,150,"12,756km",23 hrs:56 mins,MARS,687,228,"6,970km",24 hrs:37 mins,JUPITER,4288.75,778,"142,600km",9 hrs:50 mins,SATURN
~�� 10767.5,1427,"120,200km",10 hrs:14 mins,URANUS,30660,2870,"49,000km",10 hrs:49 mins,NEPTUNE,60225,4497,"50,200km",15 hrs:48 mins,PLUTO,90520,5900,"6,400km",6 DAYS:9 hrs,4,515,25,515,25,480,4,480,4,512,50,555,110,555,110,490,50
���490,50,555,170,590,250,590,250,515,170,515,170,590,320,615,380,615,380,540,320,540,320,615,470,765,695,765,695,530,470,530,470,765,705,805,995,805,995,560,705,560,705,805,990,745,1105,745,1105,630,990,630,990,745,1110,760,1210
���760,1210,650,1110,650,1110,760,1230,720,1265,720,1265,690,1230,690,1230,720,1,4,SCORCHED ROCK,1,5,NONE,2,4,HOT ROCK,2,5,CARBON DIOXIDE,3,4,MANAGABLE ROCK,3,5,NITROGEN/OXYGEN,4,4,ROCK/DUST,4,5,MOSTLY NITROGEN,9,4,VERY COLD ROCK,9
�c�5,NONE,30,597,80,9368,100,10868,60,1773,240,15182986,220,9093101,180,616009,190,662384,40,1372
���1,14,497,6,6,1,80,522,22,22,1,210,552,30,30,1,350,577,20,20,1,582,647,100,100,0,570,600,12,12,1,850,682,80,80,1,850,682,130,40,0,850,682,110,30,1,850,692,100,30,1,1047,687,40,40,1,1160,705,41,41,1,1247,705,8,8
� 00000000 0d 00 0a 20 f4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |... .***********|
00000010 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000020 0d 00 14 20 f4 2a 20 54 48 45 20 42 45 47 49 4e |... .* THE BEGIN|
00000030 4e 45 52 27 53 20 47 55 49 44 45 20 54 4f 20 2a |NER'S GUIDE TO *|
00000040 0d 00 1e 20 f4 2a 20 20 20 20 20 20 20 54 48 45 |... .* THE|
00000050 20 47 41 4c 41 58 59 20 21 20 20 20 20 20 20 2a | GALAXY ! *|
00000060 0d 00 28 20 f4 2a 20 20 20 20 42 59 20 44 41 52 |..( .* BY DAR|
00000070 52 45 4e 20 42 52 41 44 4c 45 59 20 20 20 20 2a |REN BRADLEY *|
00000080 0d 00 32 20 f4 2a 20 20 20 20 28 63 29 20 45 6c |..2 .* (c) El|
00000090 65 63 74 72 6f 6e 20 55 73 65 72 20 20 20 20 2a |ectron User *|
000000a0 0d 00 3c 20 f4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |..< .***********|
000000b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
000000c0 0d 00 46 05 3a 0d 00 50 4e eb 34 3a ef 32 33 3b |..F.:..PN.4:.23;|
000000d0 38 32 30 32 3b 30 3b 30 3b 30 3b 31 39 2c 31 2c |8202;0;0;0;19,1,|
000000e0 33 3b 30 3b 3a ff 22 46 58 32 32 39 2c 31 22 3a |3;0;:."FX229,1":|
000000f0 ee 85 20 eb 36 3a f6 3a f1 22 20 61 74 20 6c 69 |.. .6:.:." at li|
00000100 6e 65 20 22 3b 9e 3a ff 22 46 58 32 32 39 2c 30 |ne ";.:."FX229,0|
00000110 22 3a e0 0d 00 5a 17 f2 76 61 3a f2 73 63 3a f2 |":...Z..va:.sc:.|
00000120 73 68 69 70 3a f2 6d 6f 3a e0 0d 00 64 05 3a 0d |ship:.mo:...d.:.|
00000130 00 6e e2 dd f2 76 61 3a de 6d 65 24 28 33 29 2c |.n...va:.me$(3),|
00000140 73 78 25 28 35 30 29 2c 73 79 25 28 35 30 29 2c |sx%(50),sy%(50),|
00000150 70 6c 24 28 39 29 2c 63 78 25 28 37 29 2c 63 79 |pl$(9),cx%(7),cy|
00000160 25 28 37 29 2c 72 6f 25 28 39 29 2c 64 69 25 28 |%(7),ro%(9),di%(|
00000170 39 29 2c 64 65 24 28 39 2c 35 29 2c 70 6e 25 28 |9),de$(9,5),pn%(|
00000180 39 29 2c 63 28 37 32 29 2c 73 28 37 32 29 2c 76 |9),c(72),s(72),v|
00000190 6f 28 39 29 3a ef 32 33 2c 32 32 34 2c 30 2c 34 |o(9):.23,224,0,4|
000001a0 2c 36 2c 32 35 35 2c 32 35 35 2c 36 2c 34 2c 30 |,6,255,255,6,4,0|
000001b0 2c 32 33 2c 32 32 35 2c 30 2c 30 2c 30 2c 30 2c |,23,225,0,0,0,0,|
000001c0 30 2c 30 2c 30 2c 32 35 35 2c 32 33 2c 32 32 36 |0,0,0,255,23,226|
000001d0 2c 38 2c 32 34 2c 38 2c 38 2c 38 2c 32 38 2c 30 |,8,24,8,8,8,28,0|
000001e0 2c 32 35 35 2c 32 33 2c 32 32 39 2c 32 35 35 2c |,255,23,229,255,|
000001f0 32 35 35 2c 32 35 35 2c 32 35 35 2c 32 35 35 2c |255,255,255,255,|
00000200 32 35 35 2c 32 35 35 2c 32 35 35 3a 74 65 25 3d |255,255,255:te%=|
00000210 30 0d 00 78 db ef 32 33 2c 32 35 34 2c 38 2c 32 |0..x..23,254,8,2|
00000220 34 2c 38 2c 38 2c 38 2c 32 38 2c 30 2c 32 35 35 |4,8,8,8,28,0,255|
00000230 2c 32 33 2c 32 33 34 2c 39 36 2c 32 34 30 2c 32 |,23,234,96,240,2|
00000240 34 38 2c 31 31 32 2c 34 38 2c 31 36 2c 31 36 2c |48,112,48,16,16,|
00000250 38 2c 32 33 2c 32 33 35 2c 30 2c 31 32 2c 33 30 |8,23,235,0,12,30|
00000260 2c 31 32 2c 34 2c 30 2c 30 2c 30 2c 32 33 2c 32 |,12,4,0,0,0,23,2|
00000270 33 30 2c 31 2c 32 2c 34 2c 38 2c 31 36 2c 33 32 |30,1,2,4,8,16,32|
00000280 2c 36 34 2c 31 32 38 2c 32 33 2c 32 33 31 2c 31 |,64,128,23,231,1|
00000290 32 38 2c 36 34 2c 33 32 2c 31 36 2c 38 2c 34 2c |28,64,32,16,8,4,|
000002a0 32 2c 31 2c 32 33 2c 32 33 32 2c 30 2c 30 2c 30 |2,1,23,232,0,0,0|
000002b0 2c 30 2c 32 34 2c 33 36 2c 36 36 2c 31 32 39 2c |,0,24,36,66,129,|
000002c0 32 33 2c 32 33 33 2c 32 35 35 2c 30 2c 30 2c 30 |23,233,255,0,0,0|
000002d0 2c 30 2c 30 2c 30 2c 30 3a 78 63 25 3d 31 3a 73 |,0,0,0,0:xc%=1:s|
000002e0 70 24 3d c4 31 30 2c bd 32 32 39 29 0d 00 82 49 |p$=.10,.229)...I|
000002f0 73 70 24 3d c4 31 30 2c bd 32 32 39 29 3a 64 76 |sp$=.10,.229):dv|
00000300 24 3d c4 33 2c bd 39 35 29 2b bd 32 35 34 2b c4 |$=.3,.95)+.254+.|
00000310 33 2c bd 39 35 29 3a e3 6e 3d 30 b8 32 3a f3 6d |3,.95):.n=0.2:.m|
00000320 65 24 28 6e 29 3a ed 3a 78 24 3d bd 33 32 3a 79 |e$(n):.:x$=.32:y|
00000330 24 3d bd 39 35 0d 00 8c 94 61 24 3d 78 24 2b 78 |$=.95....a$=x$+x|
00000340 24 2b bd 32 33 32 2b 78 24 2b 78 24 2b 78 24 2b |$+.232+x$+x$+x$+|
00000350 78 24 2b bd 32 33 30 2b bd 32 33 33 2b bd 32 33 |x$+.230+.233+.23|
00000360 31 2b 78 24 2b 78 24 2b bd 32 33 32 2b 78 24 2b |1+x$+x$+.232+x$+|
00000370 78 24 2b bd 32 33 30 2b bd 32 33 31 2b 78 24 2b |x$+.230+.231+x$+|
00000380 78 24 2b 78 24 2b bd 32 33 32 2b 78 24 2b 78 24 |x$+x$+.232+x$+x$|
00000390 2b bd 32 33 30 2b bd 32 33 33 2b bd 32 33 31 2b |+.230+.233+.231+|
000003a0 78 24 2b 78 24 2b 78 24 2b bd 32 33 32 2b 78 24 |x$+x$+x$+.232+x$|
000003b0 2b 78 24 2b 78 24 2b 78 24 2b bd 32 33 30 2b bd |+x$+x$+x$+.230+.|
000003c0 32 33 31 2b 78 24 2b 78 24 0d 00 96 99 61 31 24 |231+x$+x$....a1$|
000003d0 3d 79 24 2b bd 32 33 30 2b 78 24 2b bd 32 33 31 |=y$+.230+x$+.231|
000003e0 2b 79 24 2b 79 24 2b bd 32 33 30 2b 78 24 2b 78 |+y$+y$+.230+x$+x|
000003f0 24 2b 78 24 2b bd 32 33 31 2b bd 32 33 30 2b 78 |$+x$+.231+.230+x|
00000400 24 2b bd 32 33 31 2b bd 32 33 30 2b 78 24 2b 78 |$+.231+.230+x$+x|
00000410 24 2b bd 32 33 31 2b 79 24 2b bd 32 33 30 2b 78 |$+.231+y$+.230+x|
00000420 24 2b bd 32 33 31 2b bd 32 33 30 2b 78 24 2b 78 |$+.231+.230+x$+x|
00000430 24 2b 78 24 2b bd 32 33 31 2b 79 24 2b bd 32 33 |$+x$+.231+y$+.23|
00000440 30 2b 78 24 2b bd 32 33 31 2b 79 24 2b 79 24 2b |0+x$+.231+y$+y$+|
00000450 bd 32 33 30 2b 78 24 2b 78 24 2b bd 32 33 31 2b |.230+x$+x$+.231+|
00000460 79 24 0d 00 a0 c2 e2 31 2c 30 2c 31 32 37 2c 31 |y$.....1,0,127,1|
00000470 32 37 2c 31 32 37 2c 32 35 35 2c 32 35 35 2c 32 |27,127,255,255,2|
00000480 35 35 2c 31 32 36 2c 30 2c 30 2c 2d 31 32 36 2c |55,126,0,0,-126,|
00000490 31 32 36 2c 31 32 36 3a e3 6e 3d 31 b8 39 3a f3 |126,126:.n=1.9:.|
000004a0 70 6c 24 28 6e 29 2c 72 6f 25 28 6e 29 2c 64 69 |pl$(n),ro%(n),di|
000004b0 25 28 6e 29 2c 64 65 24 28 6e 2c 30 29 2c 64 65 |%(n),de$(n,0),de|
000004c0 24 28 6e 2c 32 29 3a ed 3a e3 6e 3d 31 b8 34 35 |$(n,2):.:.n=1.45|
000004d0 3a f3 73 78 25 28 6e 29 2c 73 79 25 28 6e 29 3a |:.sx%(n),sy%(n):|
000004e0 ed 3a 69 3d 30 3a e3 6e 3d 30 b8 33 31 35 20 88 |.:i=0:.n=0.315 .|
000004f0 34 35 3a 63 78 25 28 69 29 3d 36 34 30 2b 28 9b |45:cx%(i)=640+(.|
00000500 28 b2 28 6e 29 29 2a 32 31 30 29 3a 63 79 25 28 |(.(n))*210):cy%(|
00000510 69 29 3d 36 30 30 2b 28 b5 28 b2 28 6e 29 29 2a |i)=600+(.(.(n))*|
00000520 32 31 30 29 0d 00 aa bd 69 3d 69 2b 31 3a ed 3a |210)....i=i+1:.:|
00000530 e3 6e 3d 31 b8 34 3a 64 65 24 28 6e 2c 31 29 3d |.n=1.4:de$(n,1)=|
00000540 22 49 4e 4e 45 52 22 3a ed 3a e3 6e 3d 35 b8 39 |"INNER":.:.n=5.9|
00000550 3a 64 65 24 28 6e 2c 31 29 3d 22 4f 55 54 45 52 |:de$(n,1)="OUTER|
00000560 22 3a ed 3a e3 6e 3d 30 b8 39 3a f3 61 2c 62 2c |":.:.n=0.9:.a,b,|
00000570 63 24 3a 64 65 24 28 61 2c 62 29 3d 63 24 3a ed |c$:de$(a,b)=c$:.|
00000580 3a e3 6e 3d 35 b8 38 3a 64 65 24 28 6e 2c 34 29 |:.n=5.8:de$(n,4)|
00000590 3d 22 47 41 53 45 4f 55 53 22 3a 64 65 24 28 6e |="GASEOUS":de$(n|
000005a0 2c 35 29 3d 22 54 4f 58 49 43 20 47 41 53 45 53 |,5)="TOXIC GASES|
000005b0 20 28 48 59 44 52 4f 47 45 4e 29 22 3a ed 3a e3 | (HYDROGEN)":.:.|
000005c0 6e 3d 31 b8 39 3a 64 65 24 28 6e 2c 33 29 3d 22 |n=1.9:de$(n,3)="|
000005d0 41 4e 54 49 2d 43 4c 4f 43 4b 57 49 53 45 22 3a |ANTI-CLOCKWISE":|
000005e0 ed 0d 00 b4 5c 64 65 24 28 32 2c 33 29 3d 22 43 |....\de$(2,3)="C|
000005f0 4c 4f 43 4b 57 49 53 45 22 3a e3 6e 3d 30 b8 33 |LOCKWISE":.n=0.3|
00000600 36 30 88 35 3a 63 28 6e 2f 35 29 3d 9b 28 b2 28 |60.5:c(n/5)=.(.(|
00000610 6e 29 29 3a 73 28 6e 2f 35 29 3d b5 28 b2 28 6e |n)):s(n/5)=.(.(n|
00000620 29 29 3a ed 3a e3 6e 3d 31 b8 39 3a f3 70 6e 25 |)):.:.n=1.9:.pn%|
00000630 28 6e 29 2c 76 6f 28 6e 29 3a ed 3a e1 0d 00 be |(n),vo(n):.:....|
00000640 05 3a 0d 00 c8 ac dd f2 73 63 3a ef 31 38 2c 30 |.:......sc:.18,0|
00000650 2c 31 2c 35 3a df 30 2c 31 30 32 33 3a df 31 32 |,1,5:.0,1023:.12|
00000660 37 39 2c 31 30 32 33 3a df 31 32 37 39 2c 30 3a |79,1023:.1279,0:|
00000670 df 30 2c 30 3a ec 30 2c 33 30 30 3a df 31 32 37 |.0,0:.0,300:.127|
00000680 39 2c 33 30 30 3a ec 30 2c 39 30 30 3a df 31 32 |9,300:.0,900:.12|
00000690 37 39 2c 39 30 30 3a ec 31 32 37 39 2c 32 35 32 |79,900:.1279,252|
000006a0 3a df 30 2c 32 35 32 3a ec 33 34 30 2c 31 30 32 |:.0,252:.340,102|
000006b0 33 3a df 33 34 30 2c 39 30 30 3a ec 33 34 30 2c |3:.340,900:.340,|
000006c0 39 36 32 3a df 31 32 37 39 2c 39 36 32 3a 3a ec |962:.1279,962::.|
000006d0 31 32 32 30 2c 39 30 30 3a df 31 32 32 30 2c 39 |1220,900:.1220,9|
000006e0 36 32 3a e3 6e 3d 30 b8 33 34 30 88 31 30 0d 00 |62:.n=0.340.10..|
000006f0 d2 96 ec 6e 2c 31 30 32 33 3a df 6e 2c 39 30 30 |...n,1023:.n,900|
00000700 3a ed 3a e3 6e 3d 39 30 32 b8 31 30 32 32 88 31 |:.:.n=902.1022.1|
00000710 30 3a ec 30 2c 6e 3a df 33 34 30 2c 6e 3a ed 3a |0:.0,n:.340,n:.:|
00000720 e6 30 2c 30 3a e3 6e 3d 39 39 34 b8 39 36 32 88 |.0,0:.n=994.962.|
00000730 2d 31 36 3a ec 32 36 2c 6e 3a f1 c4 39 2c bd 32 |-16:.26,n:..9,.2|
00000740 32 39 29 3a ed 3a ec 34 32 2c 39 37 38 3a e6 30 |29):.:.42,978:.0|
00000750 2c 31 3a f1 22 7b 56 3a 31 2e 30 30 7d 22 3a f2 |,1:."{V:1.00}":.|
00000760 74 78 28 22 57 45 4c 43 4f 4d 45 20 54 4f 20 2e |tx("WELCOME TO .|
00000770 2e 2e 22 2c 34 31 36 2c 38 36 38 29 3a ef 31 38 |..",416,868):.18|
00000780 2c 30 2c 31 0d 00 dc ad f2 74 78 28 22 54 48 45 |,0,1.....tx("THE|
00000790 20 42 45 47 49 4e 4e 45 52 27 53 20 47 55 49 44 | BEGINNER'S GUID|
000007a0 45 20 54 4f 20 54 48 45 20 47 41 4c 41 58 59 20 |E TO THE GALAXY |
000007b0 21 22 2c 36 34 2c 32 39 30 29 3a ef 31 38 2c 30 |!",64,290):.18,0|
000007c0 2c 31 2c 35 3a ec 33 36 32 2c 31 30 30 35 3a f1 |,1,5:.362,1005:.|
000007d0 c4 32 38 2c bd 32 32 39 29 3a e6 30 2c 30 3a ec |.28,.229):.0,0:.|
000007e0 33 36 32 2c 31 30 30 35 3a f1 22 20 20 20 20 20 |362,1005:." |
000007f0 45 4c 45 43 54 52 4f 4e 20 55 53 45 52 20 20 20 |ELECTRON USER |
00000800 20 20 22 3a ef 31 38 2c 30 2c 31 32 38 2c 31 38 | ":.18,0,128,18|
00000810 2c 30 2c 31 3a ec 33 34 38 2c 39 34 37 3a f1 22 |,0,1:.348,947:."|
00000820 50 52 45 53 45 4e 54 20 4d 4f 44 45 3a 22 3a e1 |PRESENT MODE:":.|
00000830 20 0d 00 e6 05 3a 0d 00 f0 77 dd f2 6d 6f 3a f2 | ....:...w..mo:.|
00000840 70 6d 28 30 29 3a ef 32 38 2c 31 2c 33 30 2c 33 |pm(0):.28,1,30,3|
00000850 38 2c 32 35 2c 31 32 3a ef 35 3a ec 31 32 33 35 |8,25,12:.5:.1235|
00000860 2c 39 34 35 3a e6 30 2c 31 3a ef 36 37 2c 34 3a |,945:.0,1:.67,4:|
00000870 f2 70 64 3a f2 6b 65 3a e6 34 2c 30 3a f2 64 72 |.pd:.ke:.4,0:.dr|
00000880 28 34 36 2c 31 29 3a f5 3a 63 68 25 3d 78 63 25 |(46,1):.:ch%=xc%|
00000890 3a e7 a6 2d 39 38 20 78 63 25 3d 78 63 25 2d 35 |:..-98 xc%=xc%-5|
000008a0 3a d4 31 2c 2d 31 35 2c 31 35 30 2c 31 0d 00 fa |:.1,-15,150,1...|
000008b0 20 e7 a6 2d 36 37 20 78 63 25 3d 78 63 25 2b 35 | ..-67 xc%=xc%+5|
000008c0 3a d4 31 2c 2d 31 35 2c 31 35 30 2c 31 0d 01 04 |:.1,-15,150,1...|
000008d0 4c e7 a6 2d 38 33 20 d4 31 2c 2d 31 35 2c 32 30 |L..-83 .1,-15,20|
000008e0 30 2c 31 3a e6 30 2c 30 3a ec 31 32 33 35 2c 39 |0,1:.0,0:.1235,9|
000008f0 34 35 3a ef 31 39 2c 31 2c 33 3b 30 3b 35 2c 32 |45:.19,1,3;0;5,2|
00000900 32 39 3a ec 31 32 33 35 2c 39 34 35 3a ef 31 38 |29:.1235,945:.18|
00000910 2c 30 2c 31 2c 36 37 2c 34 0d 01 0e 4d e7 a6 2d |,0,1,67,4...M..-|
00000920 31 30 31 20 d4 31 2c 2d 31 35 2c 31 30 30 2c 31 |101 .1,-15,100,1|
00000930 3a e6 30 2c 30 3a ec 31 32 33 35 2c 39 34 35 3a |:.0,0:.1235,945:|
00000940 ef 31 39 2c 31 2c 37 3b 30 3b 35 2c 32 32 39 3a |.19,1,7;0;5,229:|
00000950 ec 31 32 33 35 2c 39 34 35 3a ef 31 38 2c 30 2c |.1235,945:.18,0,|
00000960 31 2c 36 36 2c 34 0d 01 18 12 e7 78 63 25 3c 31 |1,66,4.....xc%<1|
00000970 20 78 63 25 3d 63 68 25 0d 01 22 13 e7 78 63 25 | xc%=ch%.."..xc%|
00000980 3e 34 35 20 78 63 25 3d 63 68 25 0d 01 2c 24 e7 |>45 xc%=ch%..,$.|
00000990 a6 2d 37 34 20 d4 31 2c 31 2c 32 30 30 2c 32 3a |.-74 .1,1,200,2:|
000009a0 f2 70 6c 28 78 63 25 29 3a f2 70 6d 28 30 29 0d |.pl(xc%):.pm(0).|
000009b0 01 36 1e e7 74 65 25 20 f2 64 72 49 49 28 63 68 |.6..te% .drII(ch|
000009c0 25 29 3a 74 65 25 3d ac 28 74 65 25 29 0d 01 40 |%):te%=.(te%)..@|
000009d0 15 f2 64 72 28 63 68 25 2c 78 63 25 29 3a fd 30 |..dr(ch%,xc%):.0|
000009e0 3a e1 0d 01 4a 05 3a 0d 01 54 6a dd f2 74 78 28 |:...J.:..Tj..tx(|
000009f0 61 24 2c 78 25 2c 79 25 29 3a ea 61 25 2c 62 25 |a$,x%,y%):.a%,b%|
00000a00 3a ef 31 38 2c 30 2c 31 2c 35 3a e3 61 25 3d 79 |:.18,0,1,5:.a%=y|
00000a10 25 2d 34 20 b8 79 25 2b 34 20 88 34 3a e3 62 25 |%-4 .y%+4 .4:.b%|
00000a20 3d 78 25 2d 34 20 b8 78 25 2b 34 20 88 34 3a ec |=x%-4 .x%+4 .4:.|
00000a30 62 25 2c 61 25 3a f1 61 24 3a ed 2c 3a e6 30 2c |b%,a%:.a$:.,:.0,|
00000a40 30 3a ec 78 25 2c 79 25 3a f1 61 24 3a ef 34 3a |0:.x%,y%:.a$:.4:|
00000a50 e1 0d 01 5e 05 3a 0d 01 68 3e dd f2 70 6d 28 77 |...^.:..h>..pm(w|
00000a60 29 3a ef 31 38 2c 30 2c 30 2c 35 3a ec 37 39 36 |):.18,0,0,5:.796|
00000a70 2c 39 34 37 3a f1 73 70 24 3a e6 30 2c 31 3a ec |,947:.sp$:.0,1:.|
00000a80 37 39 36 2c 39 34 37 3a f1 6d 65 24 28 77 29 3a |796,947:.me$(w):|
00000a90 ef 34 3a e1 0d 01 72 05 3a 0d 01 7c 7e dd f2 64 |.4:...r.:..|~..d|
00000aa0 72 28 6f 6c 25 2c 6e 77 25 29 3a e6 34 2c 30 3a |r(ol%,nw%):.4,0:|
00000ab0 ec 73 78 25 28 6f 6c 25 29 2c 73 79 25 28 6f 6c |.sx%(ol%),sy%(ol|
00000ac0 25 29 3a e3 6e 3d 31 b8 34 3a df 73 78 25 28 6f |%):.n=1.4:.sx%(o|
00000ad0 6c 25 2b 6e 29 2c 73 79 25 28 6f 6c 25 2b 6e 29 |l%+n),sy%(ol%+n)|
00000ae0 3a ed 3a ec 73 78 25 28 6e 77 25 29 2c 73 79 25 |:.:.sx%(nw%),sy%|
00000af0 28 6e 77 25 29 3a e3 6e 3d 31 b8 34 3a df 73 78 |(nw%):.n=1.4:.sx|
00000b00 25 28 6e 77 25 2b 6e 29 2c 73 79 25 28 6e 77 25 |%(nw%+n),sy%(nw%|
00000b10 2b 6e 29 3a ed 3a e1 0d 01 86 05 3a 0d 01 90 81 |+n):.:.....:....|
00000b20 dd f2 70 6c 28 66 25 29 3a 63 61 25 3d 28 66 25 |..pl(f%):ca%=(f%|
00000b30 2f 35 29 2b 31 3a db 3a f1 8a 30 2c 30 29 22 50 |/5)+1:.:..0,0)"P|
00000b40 6c 61 6e 65 74 20 4e 61 6d 65 3a 20 22 3b 70 6c |lanet Name: ";pl|
00000b50 24 28 63 61 25 29 3b 8a 30 2c 31 29 3b 22 3c 44 |$(ca%);.0,1);"<D|
00000b60 3e 65 74 61 69 6c 73 2c 20 6f 72 22 27 22 3c 4d |>etails, or"'"<M|
00000b70 3e 65 61 73 75 72 65 6d 65 6e 74 73 20 3f 22 27 |>easurements ?"'|
00000b80 27 22 3c 53 50 41 43 45 2d 42 41 52 3e 20 74 6f |'"<SPACE-BAR> to|
00000b90 20 63 6f 6e 74 69 6e 75 65 2e 2e 2e 22 0d 01 9a | continue..."...|
00000ba0 2f ff 22 46 58 32 31 22 3a 77 61 25 3d a5 3a e7 |/."FX21":wa%=.:.|
00000bb0 77 61 25 3d 36 38 20 f2 70 6d 28 31 29 3a f2 64 |wa%=68 .pm(1):.d|
00000bc0 65 28 63 61 25 29 3a f2 6b 65 3a e1 0d 01 a4 1d |e(ca%):.ke:.....|
00000bd0 e7 77 61 25 3d 37 37 20 f2 70 6d 28 32 29 3a f2 |.wa%=77 .pm(2):.|
00000be0 6d 65 73 3a f2 6b 65 3a e1 0d 01 ae 17 e7 77 61 |mes:.ke:......wa|
00000bf0 25 3d 33 32 20 f2 6b 65 3a e1 20 8b 8d 74 5a 41 |%=32 .ke:. ..tZA|
00000c00 0d 01 b8 05 3a 0d 01 c2 7b dd f2 6d 65 73 3a db |....:...{..mes:.|
00000c10 3a f1 8a 30 2c 30 29 22 50 6c 61 6e 65 74 20 4e |:..0,0)"Planet N|
00000c20 61 6d 65 3a 20 22 3b 70 6c 24 28 63 61 25 29 3b |ame: ";pl$(ca%);|
00000c30 8a 30 2c 31 29 3b 22 3c 44 3e 69 73 74 61 6e 63 |.0,1);"<D>istanc|
00000c40 65 20 61 70 61 72 74 2c 20 6f 72 22 27 22 3c 53 |e apart, or"'"<S|
00000c50 3e 69 7a 65 20 64 69 66 66 65 72 65 6e 63 65 20 |>ize difference |
00000c60 3f 22 27 27 22 3c 53 50 41 43 45 2d 42 41 52 3e |?"''"<SPACE-BAR>|
00000c70 20 74 6f 20 63 6f 6e 74 69 6e 75 65 2e 2e 2e 22 | to continue..."|
00000c80 0d 01 cc 2b ff 22 46 58 32 31 22 3a 77 61 25 3d |...+."FX21":wa%=|
00000c90 a5 3a e7 77 61 25 3d 36 38 20 f2 6d 65 28 66 25 |.:.wa%=68 .me(f%|
00000ca0 2c 63 61 25 29 3a f2 6b 65 3a e1 0d 01 d6 1a e7 |,ca%):.ke:......|
00000cb0 77 61 25 3d 38 33 20 f2 66 69 28 63 61 25 29 3a |wa%=83 .fi(ca%):|
00000cc0 f2 6b 65 3a e1 0d 01 e0 17 e7 77 61 25 3d 33 32 |.ke:......wa%=32|
00000cd0 20 f2 6b 65 3a e1 20 8b 8d 64 4c 41 0d 01 ea 05 | .ke:. ..dLA....|
00000ce0 3a 0d 01 f4 74 dd f2 6d 65 28 66 72 25 2c 66 6d |:...t..me(fr%,fm|
00000cf0 25 29 3a 61 3d 30 3a 71 25 3d 30 3a 71 71 25 3d |%):a=0:q%=0:qq%=|
00000d00 30 3a 63 25 3d 30 3a 63 63 25 3d 30 3a 64 73 24 |0:c%=0:cc%=0:ds$|
00000d10 3d 22 22 3a 64 73 25 3d 30 3a db 3a f1 8a 30 2c |="":ds%=0:.:..0,|
00000d20 30 29 3b 22 4d 65 61 73 75 72 69 6e 67 20 66 72 |0);"Measuring fr|
00000d30 6f 6d 20 22 3b 70 6c 24 28 66 6d 25 29 3b 22 20 |om ";pl$(fm%);" |
00000d40 74 6f 22 3a ef 32 36 2c 32 38 2c 31 2c 33 30 2c |to":.26,28,1,30,|
00000d50 33 38 2c 32 36 0d 01 fe 30 e8 22 3d 3e 20 22 61 |38,26...0."=> "a|
00000d60 24 3a 63 6f 25 3d 2d 31 3a e3 6e 3d 31 b8 39 3a |$:co%=-1:.n=1.9:|
00000d70 e7 61 24 3d 70 6c 24 28 6e 29 20 63 6f 25 3d 6e |.a$=pl$(n) co%=n|
00000d80 3a ed 20 8b ed 0d 02 08 30 e6 34 2c 30 3a e7 63 |:. .....0.4,0:.c|
00000d90 6f 25 3d 2d 31 20 84 61 24 3d 22 22 20 84 61 24 |o%=-1 .a$="" .a$|
00000da0 3d 70 6c 24 28 66 6d 25 29 20 db 3a f2 6d 73 3a |=pl$(fm%) .:.ms:|
00000db0 e5 8d 64 7e 41 0d 02 12 d3 74 6f 25 3d 28 28 63 |..d~A....to%=((c|
00000dc0 6f 25 2d 31 29 2a 35 29 2b 31 3a 71 25 3d 73 78 |o%-1)*5)+1:q%=sx|
00000dd0 25 28 66 72 25 2b 31 29 2d 28 28 73 78 25 28 66 |%(fr%+1)-((sx%(f|
00000de0 72 25 2b 31 29 2d 73 78 25 28 66 72 25 29 29 2f |r%+1)-sx%(fr%))/|
00000df0 32 29 3a 71 71 25 3d 73 78 25 28 74 6f 25 2b 31 |2):qq%=sx%(to%+1|
00000e00 29 2d 28 28 73 78 25 28 74 6f 25 2b 31 29 2d 73 |)-((sx%(to%+1)-s|
00000e10 78 25 28 74 6f 25 29 29 2f 32 29 3a 63 25 3d 71 |x%(to%))/2):c%=q|
00000e20 25 2b 28 71 71 25 2d 71 25 29 2f 32 3a 63 63 25 |%+(qq%-q%)/2:cc%|
00000e30 3d 71 71 25 2b 28 71 25 2d 71 71 25 29 2f 32 3a |=qq%+(q%-qq%)/2:|
00000e40 e3 67 3d 30 b8 31 3a ec 73 78 25 28 74 6f 25 29 |.g=0.1:.sx%(to%)|
00000e50 2c 73 79 25 28 74 6f 25 29 3a e3 6e 3d 31 b8 34 |,sy%(to%):.n=1.4|
00000e60 3a df 73 78 25 28 74 6f 25 2b 6e 29 2c 73 79 25 |:.sx%(to%+n),sy%|
00000e70 28 74 6f 25 2b 6e 29 3a ed 3a ec 71 25 2c 73 79 |(to%+n):.:.q%,sy|
00000e80 25 28 66 72 25 2b 33 29 0d 02 1c 4e df 71 25 2c |%(fr%+3)...N.q%,|
00000e90 34 35 30 3a df 71 71 25 2c 34 35 30 3a df 71 71 |450:.qq%,450:.qq|
00000ea0 25 2c 73 79 25 28 74 6f 25 2b 33 29 3a e7 71 71 |%,sy%(to%+3):.qq|
00000eb0 25 3c 71 25 20 ec 63 63 25 2c 34 36 33 3a ef 35 |%<q% .cc%,463:.5|
00000ec0 2c 36 30 2c 34 20 8b ec 63 25 2c 34 36 33 3a ef |,60,4 ..c%,463:.|
00000ed0 35 2c 36 32 2c 34 0d 02 26 72 64 73 25 3d 94 28 |5,62,4..&rds%=.(|
00000ee0 64 69 25 28 63 6f 25 29 2d 64 69 25 28 66 6d 25 |di%(co%)-di%(fm%|
00000ef0 29 29 3a 64 73 24 3d a4 63 6f 28 64 73 25 29 3a |)):ds$=.co(ds%):|
00000f00 f1 22 44 69 73 74 61 6e 63 65 20 62 65 74 77 65 |."Distance betwe|
00000f10 65 6e 20 74 68 65 6d 20 3d 22 27 3b 64 73 25 3b |en them ="';ds%;|
00000f20 22 20 6d 69 6c 6c 69 6f 6e 20 6b 69 6c 6f 6d 65 |" million kilome|
00000f30 74 72 65 73 22 3a e7 61 3d 30 20 f2 73 62 3a 61 |tres":.a=0 .sb:a|
00000f40 3d 31 3a ef 33 30 3a ed 0d 02 30 1f ed 3a ef 31 |=1:.30:...0..:.1|
00000f50 32 2c 32 36 2c 32 38 2c 31 2c 33 30 2c 33 38 2c |2,26,28,1,30,38,|
00000f60 32 35 2c 31 32 3a e1 0d 02 3a 05 3a 0d 02 44 2c |25,12:...:.:..D,|
00000f70 dd f2 6d 73 3a ea 61 2c 6e 3a 61 3d b3 28 34 29 |..ms:.a,n:a=.(4)|
00000f80 3a ee 61 20 e4 8d 44 58 42 2c 8d 44 62 42 2c 8d |:.a ..DXB,.DbB,.|
00000f90 44 6c 42 2c 8d 44 76 42 0d 02 4e 13 e3 6e 3d 30 |DlB,.DvB..N..n=0|
00000fa0 b8 32 30 30 30 3a ed 3a db 3a e1 0d 02 58 1d f1 |.2000:.:.:...X..|
00000fb0 22 49 27 6d 20 6e 6f 74 20 68 61 76 69 6e 67 20 |"I'm not having |
00000fc0 74 68 61 74 21 22 3a f8 0d 02 62 1c f1 22 44 6f |that!":...b.."Do|
00000fd0 6e 27 74 20 62 65 20 73 6f 20 73 74 75 70 69 64 |n't be so stupid|
00000fe0 21 22 3a f8 0d 02 6c 24 f1 22 59 6f 75 27 72 65 |!":...l$."You're|
00000ff0 20 6e 6f 74 20 63 6c 65 76 65 72 20 79 6f 75 20 | not clever you |
00001000 6b 6e 6f 77 21 22 3a f8 0d 02 76 22 f1 22 54 72 |know!":...v"."Tr|
00001010 79 69 6e 67 20 74 6f 20 63 6f 6e 66 75 73 65 20 |ying to confuse |
00001020 6d 65 2c 20 65 68 3f 22 3a f8 0d 02 80 05 3a 0d |me, eh?":.....:.|
00001030 02 8a c1 dd f2 6b 65 3a db 3a f1 8a 31 32 29 3b |.....ke:.:..12);|
00001040 3a ef 31 37 2c 31 32 39 2c 31 37 2c 30 3a f1 22 |:.17,129,17,0:."|
00001050 3c 20 4d 41 49 4e 20 4d 45 4e 55 20 3e 22 3a ef |< MAIN MENU >":.|
00001060 31 37 2c 31 32 38 2c 31 37 2c 31 3a f1 8a 38 29 |17,128,17,1:..8)|
00001070 22 5a 20 2e 2e 2e 2e 20 4d 6f 76 65 20 62 6c 6f |"Z .... Move blo|
00001080 63 6b 20 6c 65 66 74 22 27 8a 37 29 22 58 20 2e |ck left"'.7)"X .|
00001090 2e 2e 2e 2e 20 4d 6f 76 65 20 62 6c 6f 63 6b 20 |.... Move block |
000010a0 72 69 67 68 74 22 27 8a 36 29 22 52 45 54 55 52 |right"'.6)"RETUR|
000010b0 4e 20 2e 2e 2e 2e 2e 20 53 65 6c 65 63 74 20 70 |N ..... Select p|
000010c0 6c 61 6e 65 74 22 27 8a 32 29 22 43 20 2e 2e 2e |lanet"'.2)"C ...|
000010d0 20 43 6f 6c 6f 75 72 20 20 20 42 20 2e 2e 2e 20 | Colour B ... |
000010e0 42 6c 61 63 6b 20 26 20 57 68 69 74 65 22 3a e1 |Black & White":.|
000010f0 0d 02 94 05 3a 0d 02 9e 81 dd f2 64 65 28 6e 6f |....:......de(no|
00001100 25 29 3a db 3a f1 8a 30 2c 30 29 22 50 6c 61 6e |%):.:..0,0)"Plan|
00001110 65 74 20 4e 61 6d 65 3a 20 22 3b 70 6c 24 28 6e |et Name: ";pl$(n|
00001120 6f 25 29 3b 8a 30 2c 31 29 3b 22 3c 52 3e 6f 74 |o%);.0,1);"<R>ot|
00001130 61 74 69 6f 6e 20 74 69 6d 65 2c 20 6f 72 22 27 |ation time, or"'|
00001140 22 3c 53 3e 74 72 75 63 74 75 72 61 6c 20 64 65 |"<S>tructural de|
00001150 74 61 69 6c 73 20 3f 22 27 27 22 3c 53 50 41 43 |tails ?"''"<SPAC|
00001160 45 2d 42 41 52 3e 20 74 6f 20 63 6f 6e 74 69 6e |E-BAR> to contin|
00001170 75 65 2e 2e 2e 22 0d 02 a8 28 ff 22 46 58 32 31 |ue..."...(."FX21|
00001180 22 3a 77 61 25 3d a5 3a e7 77 61 25 3d 38 32 20 |":wa%=.:.wa%=82 |
00001190 f2 72 6f 28 6e 6f 25 29 3a f2 6b 65 3a e1 0d 02 |.ro(no%):.ke:...|
000011a0 b2 1a e7 77 61 25 3d 38 33 20 f2 73 74 28 6e 6f |...wa%=83 .st(no|
000011b0 25 29 3a f2 6b 65 3a e1 0d 02 bc 17 e7 77 61 25 |%):.ke:......wa%|
000011c0 3d 33 32 20 f2 6b 65 3a e1 20 8b 8d 74 68 42 0d |=32 .ke:. ..thB.|
000011d0 02 c6 05 3a 0d 02 d0 c8 dd f2 72 63 3a ea 6e 2c |...:......rc:.n,|
000011e0 6f 2c 6b 2c 6b 31 2c 73 25 2c 61 25 3a ef 32 34 |o,k,k1,s%,a%:.24|
000011f0 2c 34 3b 33 30 34 3b 31 32 37 34 3b 38 39 36 3b |,4;304;1274;896;|
00001200 31 36 2c 32 36 2c 32 34 2c 34 3b 33 30 34 3b 31 |16,26,24,4;304;1|
00001210 32 37 34 3b 38 39 36 3b 32 38 2c 31 2c 33 30 2c |274;896;28,1,30,|
00001220 33 38 2c 32 35 3a 73 25 3d 72 6f 25 28 70 25 29 |38,25:s%=ro%(p%)|
00001230 2f 38 3a 61 25 3d 2d 73 25 3a f2 63 69 28 36 34 |/8:a%=-s%:.ci(64|
00001240 30 2c 36 30 30 2c 31 35 30 2c 31 35 30 29 3a ef |0,600,150,150):.|
00001250 31 38 2c 30 2c 30 2c 35 3a ec 35 39 32 2c 36 33 |18,0,0,5:.592,63|
00001260 32 3a f1 22 54 48 45 22 3a ec 35 39 32 2c 36 30 |2:."THE":.592,60|
00001270 30 3a f1 22 53 55 4e 22 3a ef 31 38 2c 30 2c 31 |0:."SUN":.18,0,1|
00001280 2c 34 3a e3 6e 3d 30 b8 37 3a ef 32 39 2c 63 78 |,4:.n=0.7:.29,cx|
00001290 25 28 6e 29 3b 63 79 25 28 6e 29 3b 0d 02 da a3 |%(n);cy%(n);....|
000012a0 e3 6f 3d 30 b8 37 31 88 34 3a f0 36 39 2c 63 28 |.o=0.71.4:.69,c(|
000012b0 6f 29 2a 33 35 2c 73 28 6f 29 2a 33 35 3a ed 3a |o)*35,s(o)*35:.:|
000012c0 61 25 3d 61 25 2b 73 25 3a 74 69 24 3d a4 63 6f |a%=a%+s%:ti$=.co|
000012d0 28 61 25 29 3a 6b 3d 31 30 30 2b 94 28 a9 28 74 |(a%):k=100+.(.(t|
000012e0 69 24 29 2d 32 29 2a 33 32 3a 6b 31 3d 28 a9 28 |i$)-2)*32:k1=(.(|
000012f0 74 69 24 29 2a 33 32 29 2f 32 3a ef 35 3a e7 6e |ti$)*32)/2:.5:.n|
00001300 3d 30 20 ec 35 30 2c 33 32 3a f1 3b 74 69 24 3b |=0 .50,32:.;ti$;|
00001310 22 20 74 6f 22 3a ec 35 30 2c 30 3a 65 6e 64 24 |" to":.50,0:end$|
00001320 3d a4 63 6f 28 72 6f 25 28 70 25 29 29 3a f1 3b |=.co(ro%(p%)):.;|
00001330 65 6e 64 24 3b 22 20 64 61 79 73 2e 22 3a ed 0d |end$;" days.":..|
00001340 02 e4 43 e7 6e 3d 32 20 ec 2d 6b 31 2c 37 35 20 |..C.n=2 .-k1,75 |
00001350 8b e7 6e 3d 36 20 ec 2d 6b 31 2c 2d 34 33 20 8b |..n=6 .-k1,-43 .|
00001360 e7 6e 3e 32 20 80 6e 3c 36 20 ec 2d 28 a9 28 74 |.n>2 .n<6 .-(.(t|
00001370 69 24 29 29 2d 6b 2c 31 36 20 8b 20 ec 35 30 2c |i$))-k,16 . .50,|
00001380 31 36 0d 02 ee 77 f1 3b 74 69 24 3a ed 3a ef 34 |16...w.;ti$:.:.4|
00001390 3a f1 8a 30 2c 32 29 22 4f 6e 65 20 79 65 61 72 |:..0,2)"One year|
000013a0 20 6f 6e 20 22 3b 70 6c 24 28 70 25 29 3b 22 20 | on ";pl$(p%);" |
000013b0 69 73 22 27 22 65 71 75 61 6c 20 74 6f 20 22 3b |is"'"equal to ";|
000013c0 72 6f 25 28 70 25 29 3b 22 20 64 61 79 73 2e 22 |ro%(p%);" days."|
000013d0 3a f2 73 62 3a ef 32 39 2c 30 3b 30 3b 31 36 2c |:.sb:.29,0;0;16,|
000013e0 32 36 2c 32 38 2c 31 2c 33 30 2c 33 38 2c 32 35 |26,28,1,30,38,25|
000013f0 2c 31 32 3a f2 70 64 3a e1 0d 02 f8 05 3a 0d 03 |,12:.pd:.....:..|
00001400 02 68 dd f2 72 6f 28 70 25 29 3a db 3a f1 22 54 |.h..ro(p%):.:."T|
00001410 69 6d 65 20 74 61 6b 65 20 66 6f 72 20 22 3b 70 |ime take for ";p|
00001420 6c 24 28 70 25 29 3b 22 20 74 6f 20 63 6f 6d 70 |l$(p%);" to comp|
00001430 6c 65 74 65 22 27 22 6f 6e 65 20 72 6f 74 61 74 |lete"'"one rotat|
00001440 69 6f 6e 20 6f 66 20 74 68 65 20 73 75 6e 2c 20 |ion of the sun, |
00001450 69 6e 20 64 61 79 73 2e 22 3a f2 72 63 3a 74 65 |in days.":.rc:te|
00001460 25 3d 2d 31 3a e1 0d 03 0c 05 3a 0d 03 16 32 dd |%=-1:.....:...2.|
00001470 f2 73 62 3a f1 22 50 72 65 73 73 20 3c 53 50 41 |.sb:."Press <SPA|
00001480 43 45 2d 42 41 52 3e 20 74 6f 20 63 6f 6e 74 69 |CE-BAR> to conti|
00001490 6e 75 65 22 3a f5 fd a5 3d 33 32 3a e1 0d 03 20 |nue":...=32:... |
000014a0 05 3a 0d 03 2a 49 dd f2 64 72 49 49 28 6f 6c 25 |.:..*I..drII(ol%|
000014b0 29 3a e6 34 2c 30 3a ec 73 78 25 28 6f 6c 25 29 |):.4,0:.sx%(ol%)|
000014c0 2c 73 79 25 28 6f 6c 25 29 3a e3 6e 3d 31 b8 34 |,sy%(ol%):.n=1.4|
000014d0 3a df 73 78 25 28 6f 6c 25 2b 6e 29 2c 73 79 25 |:.sx%(ol%+n),sy%|
000014e0 28 6f 6c 25 2b 6e 29 3a ed 3a e1 0d 03 34 05 3a |(ol%+n):.:...4.:|
000014f0 0d 03 3e 2d dd a4 63 6f 28 72 25 29 3a 61 24 3d |..>-..co(r%):a$=|
00001500 c3 28 72 25 29 3a e7 a9 28 61 24 29 3c 3d 33 20 |.(r%):..(a$)<=3 |
00001510 6e 75 6d 24 3d 61 24 3a 3d 6e 75 6d 24 0d 03 48 |num$=a$:=num$..H|
00001520 36 65 3d a9 28 61 24 29 2d 33 3a 62 24 3d c2 61 |6e=.(a$)-3:b$=.a|
00001530 24 2c 33 29 3a 63 24 3d c0 61 24 2c 65 29 3a 6e |$,3):c$=.a$,e):n|
00001540 75 6d 24 3d 63 24 2b 22 2c 22 2b 62 24 3a 3d 6e |um$=c$+","+b$:=n|
00001550 75 6d 24 0d 03 52 05 3a 0d 03 5c 33 dd a4 63 6f |um$..R.:..\3..co|
00001560 32 28 72 29 3a 61 24 3d c3 72 3a 65 3d 30 3a e3 |2(r):a$=.r:e=0:.|
00001570 6e 3d 31 b8 a9 28 61 24 29 3a e7 c1 61 24 2c 6e |n=1..(a$):..a$,n|
00001580 2c 31 29 3d 22 2e 22 20 65 3d 6e 0d 03 66 17 ed |,1)="." e=n..f..|
00001590 3a e7 65 3c 3e 30 20 72 24 3d c0 61 24 2c 65 2b |:.e<>0 r$=.a$,e+|
000015a0 32 29 0d 03 70 07 3d 72 24 0d 03 7a 05 3a 0d 03 |2)..p.=r$..z.:..|
000015b0 84 b8 dd f2 73 74 28 70 6c 25 29 3a ef 31 32 2c |....st(pl%):.12,|
000015c0 32 34 2c 34 3b 33 30 34 3b 31 32 37 34 3b 38 39 |24,4;304;1274;89|
000015d0 36 3b 31 36 2c 32 36 2c 32 38 2c 31 2c 32 31 2c |6;16,26,28,1,21,|
000015e0 33 38 2c 34 2c 31 32 2c 31 37 2c 31 32 39 2c 31 |38,4,12,17,129,1|
000015f0 37 2c 30 3a f1 8a 32 2c 30 29 3b 22 3c 20 53 54 |7,0:..2,0);"< ST|
00001600 52 55 43 54 55 52 41 4c 20 44 45 54 41 49 4c 53 |RUCTURAL DETAILS|
00001610 20 4f 46 20 22 3b 70 6c 24 28 70 6c 25 29 3b 22 | OF ";pl$(pl%);"|
00001620 20 3e 22 3a ef 31 37 2c 31 32 38 2c 31 37 2c 31 | >":.17,128,17,1|
00001630 3a f1 8a 30 2c 32 29 22 2a 20 45 51 55 41 54 4f |:..0,2)"* EQUATO|
00001640 52 49 41 4c 20 44 49 41 4d 45 54 45 52 3a 22 27 |RIAL DIAMETER:"'|
00001650 27 22 2a 20 50 4c 41 4e 45 54 41 52 59 20 47 52 |'"* PLANETARY GR|
00001660 4f 55 50 3a 22 27 0d 03 8e c0 f1 22 2a 20 54 55 |OUP:"'....."* TU|
00001670 52 4e 53 20 4f 4e 20 41 58 49 53 20 28 69 65 3a |RNS ON AXIS (ie:|
00001680 4f 6e 65 20 64 61 79 29 3a 22 27 27 22 2a 20 52 |One day):"''"* R|
00001690 4f 54 41 54 49 4f 4e 41 4c 20 44 49 52 45 43 54 |OTATIONAL DIRECT|
000016a0 49 4f 4e 3a 22 27 27 22 2a 20 50 4c 41 4e 45 54 |ION:"''"* PLANET|
000016b0 27 53 20 53 55 52 46 41 43 45 3a 22 27 27 22 2a |'S SURFACE:"''"*|
000016c0 20 41 54 4d 4f 53 50 48 45 52 49 43 20 43 4f 4e | ATMOSPHERIC CON|
000016d0 53 49 53 54 45 4e 43 59 3a 22 3a ef 31 37 2c 31 |SISTENCY:":.17,1|
000016e0 32 39 2c 31 37 2c 30 3a 69 3d 30 3a e3 6e 3d 33 |29,17,0:i=0:.n=3|
000016f0 b8 31 33 20 88 32 3a f1 8a 32 2c 6e 29 3b 64 65 |.13 .2:..2,n);de|
00001700 24 28 70 6c 25 2c 69 29 3a 69 3d 69 2b 31 3a ed |$(pl%,i):i=i+1:.|
00001710 3a ef 31 30 2c 31 37 2c 31 32 38 2c 31 37 2c 31 |:.10,17,128,17,1|
00001720 3a f2 73 62 3a db 0d 03 98 31 ef 32 38 2c 31 2c |:.sb:....1.28,1,|
00001730 33 30 2c 33 38 2c 32 35 2c 32 34 2c 30 3b 30 3b |30,38,25,24,0;0;|
00001740 31 32 37 39 3b 31 30 32 33 3b 3a 74 65 25 3d 2d |1279;1023;:te%=-|
00001750 31 3a f2 70 64 3a e1 0d 03 a2 05 3a 0d 03 ac 51 |1:.pd:.....:...Q|
00001760 dd f2 63 69 28 78 2c 79 2c 61 2c 62 29 3a e3 6e |..ci(x,y,a,b):.n|
00001770 3d 30 b8 37 31 88 32 3a ec 78 2c 79 3a ec 78 2b |=0.71.2:.x,y:.x+|
00001780 63 28 6e 29 2a 61 2c 79 2b 73 28 6e 29 2a 62 3a |c(n)*a,y+s(n)*b:|
00001790 f0 38 35 2c 78 2b 63 28 6e 2b 32 29 2a 61 2c 79 |.85,x+c(n+2)*a,y|
000017a0 2b 73 28 6e 2b 32 29 2a 62 3a ed 3a e1 0d 03 b6 |+s(n+2)*b:.:....|
000017b0 05 3a 0d 03 c0 95 dd f2 70 64 3a f7 8d 74 66 44 |.:......pd:..tfD|
000017c0 3a f1 22 50 4c 45 41 53 45 20 57 41 49 54 20 2e |:."PLEASE WAIT .|
000017d0 2e 2e 22 3a e3 6c 3d 30 b8 32 30 30 3a f0 36 39 |..":.l=0.200:.69|
000017e0 2c b3 28 31 32 38 30 29 2c b3 28 36 30 30 29 2b |,.(1280),.(600)+|
000017f0 33 30 30 3a ed 3a e3 6c 3d 30 b8 31 32 3a f3 66 |300:.:.l=0.12:.f|
00001800 2c 67 2c 68 2c 69 2c 6a 3a e6 30 2c 66 3a f2 63 |,g,h,i,j:.0,f:.c|
00001810 69 28 67 2c 68 2c 69 2c 6a 29 3a ed 3a ef 35 3a |i(g,h,i,j):.:.5:|
00001820 e6 30 2c 30 3a ec 31 39 34 2c 35 37 35 3a ef 32 |.0,0:.194,575:.2|
00001830 33 34 2c 38 2c 31 30 2c 32 33 35 3a e6 30 2c 31 |34,8,10,235:.0,1|
00001840 3a ef 34 3a db 3a e1 0d 03 ca 05 3a 0d 03 d4 8f |:.4:.:.....:....|
00001850 dd f2 66 69 28 6e 25 29 3a db 3a ef 32 34 2c 34 |..fi(n%):.:.24,4|
00001860 3b 33 30 34 3b 31 32 37 34 3b 38 39 36 3b 31 36 |;304;1274;896;16|
00001870 2c 32 36 2c 32 34 2c 34 3b 33 30 34 3b 31 32 37 |,26,24,4;304;127|
00001880 34 3b 38 39 36 3b 32 38 2c 31 2c 33 30 2c 33 38 |4;896;28,1,30,38|
00001890 2c 32 35 3a f1 8a 30 2c 30 29 3b 22 43 6f 6d 70 |,25:..0,0);"Comp|
000018a0 61 72 69 6e 67 20 74 68 65 20 73 69 7a 65 20 6f |aring the size o|
000018b0 66 20 22 3b 70 6c 24 28 6e 25 29 27 3b 22 74 6f |f ";pl$(n%)';"to|
000018c0 20 74 68 61 74 20 6f 66 22 3a ef 32 36 2c 32 38 | that of":.26,28|
000018d0 2c 31 2c 33 30 2c 33 38 2c 32 37 0d 03 de 2e e8 |,1,30,38,27.....|
000018e0 22 3d 3e 20 22 61 24 3a 6f 25 3d 2d 31 3a e3 6e |"=> "a$:o%=-1:.n|
000018f0 3d 31 b8 39 3a e7 61 24 3d 70 6c 24 28 6e 29 20 |=1.9:.a$=pl$(n) |
00001900 6f 25 3d 6e 3a ed 20 8b ed 0d 03 e8 29 e7 6f 25 |o%=n:. .....).o%|
00001910 3d 2d 31 20 84 61 24 3d 22 22 20 84 61 24 3d 70 |=-1 .a$="" .a$=p|
00001920 6c 24 28 6e 25 29 20 db 3a f2 6d 73 3a e5 8d 64 |l$(n%) .:.ms:..d|
00001930 5e 43 0d 03 f2 d3 ec 33 32 35 2b 63 28 30 29 2a |^C.....325+c(0)*|
00001940 70 6e 25 28 6f 25 29 2c 36 34 30 2b 73 28 30 29 |pn%(o%),640+s(0)|
00001950 2a 70 6e 25 28 6f 25 29 3a e3 6e 3d 30 b8 37 32 |*pn%(o%):.n=0.72|
00001960 3a df 33 32 35 2b 63 28 6e 29 2a 70 6e 25 28 6f |:.325+c(n)*pn%(o|
00001970 25 29 2c 36 34 30 2b 73 28 6e 29 2a 70 6e 25 28 |%),640+s(n)*pn%(|
00001980 6f 25 29 3a ed 3a ec 39 35 35 2b 63 28 30 29 2a |o%):.:.955+c(0)*|
00001990 70 6e 25 28 6e 25 29 2c 36 34 30 2b 73 28 30 29 |pn%(n%),640+s(0)|
000019a0 2a 70 6e 25 28 6e 25 29 3a e3 6e 3d 30 b8 37 32 |*pn%(n%):.n=0.72|
000019b0 3a df 39 35 35 2b 63 28 6e 29 2a 70 6e 25 28 6e |:.955+c(n)*pn%(n|
000019c0 25 29 2c 36 34 30 2b 73 28 6e 29 2a 70 6e 25 28 |%),640+s(n)*pn%(|
000019d0 6e 25 29 3a ed 3a ef 35 3a 78 3d 39 35 35 3a 79 |n%):.:.5:x=955:y|
000019e0 3d 36 34 34 2b 73 28 35 34 29 2a 70 6e 25 28 6e |=644+s(54)*pn%(n|
000019f0 25 29 3a 61 3d 30 3a 7a 25 3d 39 33 35 2d 70 6e |%):a=0:z%=935-pn|
00001a00 25 28 6e 25 29 0d 03 fc 8b 7a 7a 25 3d 33 34 35 |%(n%)....zz%=345|
00001a10 2b 70 6e 25 28 6f 25 29 3a 6c 25 3d 28 7a 25 2d |+pn%(o%):l%=(z%-|
00001a20 7a 7a 25 29 2f 31 30 3a 6c 6c 3d 28 28 36 34 30 |zz%)/10:ll=((640|
00001a30 2b 70 6e 25 28 6e 25 29 29 2d 28 36 34 30 2d 70 |+pn%(n%))-(640-p|
00001a40 6e 25 28 6e 25 29 29 29 2f 34 3a 70 72 3d 30 3a |n%(n%)))/4:pr=0:|
00001a50 70 3d 28 76 6f 28 6e 25 29 2f 76 6f 28 6f 25 29 |p=(vo(n%)/vo(o%)|
00001a60 29 2f 6c 6c 3a 70 70 3d 70 3a e7 6c 6c 2a 70 3c |)/ll:pp=p:.ll*p<|
00001a70 31 20 70 3d 28 76 6f 28 6f 25 29 2f 76 6f 28 6e |1 p=(vo(o%)/vo(n|
00001a80 25 29 29 2f 6c 6c 3a 70 70 3d 70 3a 70 72 3d 31 |%))/ll:pp=p:pr=1|
00001a90 0d 04 06 2f ef 32 36 3a f5 3a e7 b0 78 2c 79 29 |.../.26:.:..x,y)|
00001aa0 3d 30 20 f0 37 37 2c 78 2c 79 3a 79 3d 79 2b 34 |=0 .77,x,y:y=y+4|
00001ab0 3a 70 3d 70 2b 70 70 3a f2 70 6f 28 70 72 29 0d |:p=p+pp:.po(pr).|
00001ac0 04 10 3a 6c 61 3d 61 3a e6 30 2c 30 3a ec 7a 7a |..:la=a:.0,0:.zz|
00001ad0 25 2b 28 6c 61 2a 6c 25 29 2c 36 34 30 3a ef 32 |%+(la*l%),640:.2|
00001ae0 32 34 2c 31 38 2c 30 2c 31 3a 61 3d 61 2b 31 3a |24,18,0,1:a=a+1:|
00001af0 e7 61 3d 31 30 20 61 3d 30 0d 04 1a 96 ec 7a 7a |.a=10 a=0.....zz|
00001b00 25 2b 28 61 2a 6c 25 29 2c 36 34 30 3a ef 32 32 |%+(a*l%),640:.22|
00001b10 34 3a fd b0 78 2c 79 29 3a ec 7a 7a 25 2b 28 61 |4:..x,y):.zz%+(a|
00001b20 2a 6c 25 29 2c 36 34 30 3a ef 31 38 2c 30 2c 30 |*l%),640:.18,0,0|
00001b30 2c 32 32 34 2c 34 2c 31 38 2c 30 2c 31 3a ef 32 |,224,4,18,0,1:.2|
00001b40 38 2c 31 2c 33 30 2c 33 38 2c 32 35 3a f1 8a 30 |8,1,30,38,25:..0|
00001b50 2c 33 29 3b 3a f2 73 62 3a ef 32 34 2c 34 3b 33 |,3);:.sb:.24,4;3|
00001b60 30 34 3b 31 32 37 34 3b 38 39 36 3b 31 36 2c 32 |04;1274;896;16,2|
00001b70 36 2c 32 38 2c 31 2c 33 30 2c 33 38 2c 32 35 2c |6,28,1,30,38,25,|
00001b80 31 32 3a f2 70 64 3a 74 65 25 3d 2d 31 3a e1 0d |12:.pd:te%=-1:..|
00001b90 04 24 05 3a 0d 04 2e 69 dd f2 70 6f 28 61 29 3a |.$.:...i..po(a):|
00001ba0 ef 34 3a 70 24 3d a4 63 6f 32 28 70 29 3a e7 70 |.4:p$=.co2(p):.p|
00001bb0 72 3d 30 20 f1 8a 31 2c 32 30 29 3b 70 6c 24 28 |r=0 ..1,20);pl$(|
00001bc0 6e 25 29 3b 22 20 68 61 73 20 22 3b 70 24 3b 22 |n%);" has ";p$;"|
00001bd0 20 22 3b 8a 31 2c 32 31 29 3b 22 74 69 6d 65 73 | ";.1,21);"times|
00001be0 20 74 68 65 20 76 6f 6c 75 6d 65 20 6f 66 20 22 | the volume of "|
00001bf0 3b 70 6c 24 28 6f 25 29 3a ef 35 3a e1 0d 04 38 |;pl$(o%):.5:...8|
00001c00 56 f1 8a 33 2c 32 30 29 3b 70 6c 24 28 6e 25 29 |V..3,20);pl$(n%)|
00001c10 3b 22 20 68 61 73 20 22 3b bd 31 31 3b 64 76 24 |;" has ";.11;dv$|
00001c20 3b bd 31 30 3b c4 37 2c bd 38 29 3b 70 24 3b 8a |;.10;.7,.8);p$;.|
00001c30 33 2c 32 31 29 3b 22 74 68 65 20 76 6f 6c 75 6d |3,21);"the volum|
00001c40 65 20 6f 66 20 22 3b 70 6c 24 28 6f 25 29 3a ef |e of ";pl$(o%):.|
00001c50 35 3a e1 0d 04 42 05 3a 0d 04 4c ad dd f2 73 68 |5:...B.:..L...sh|
00001c60 69 70 3a ec 33 30 30 2c 35 32 30 3a df 31 30 30 |ip:.300,520:.100|
00001c70 30 2c 35 32 30 3a df 39 30 30 2c 34 37 30 3a df |0,520:.900,470:.|
00001c80 35 34 30 2c 34 37 30 3a ec 33 34 30 2c 34 37 30 |540,470:.340,470|
00001c90 3a df 33 30 30 2c 34 37 30 3a df 33 30 30 2c 35 |:.300,470:.300,5|
00001ca0 32 30 3a ec 33 32 30 2c 35 32 30 3a df 33 32 30 |20:.320,520:.320|
00001cb0 2c 36 37 30 3a df 34 32 30 2c 36 37 30 3a df 35 |,670:.420,670:.5|
00001cc0 32 30 2c 35 37 30 3a df 35 32 30 2c 35 32 30 3a |20,570:.520,520:|
00001cd0 ec 35 32 30 2c 35 37 30 3a df 36 37 30 2c 35 37 |.520,570:.670,57|
00001ce0 30 3a df 37 32 30 2c 35 32 30 3a ec 33 37 30 2c |0:.720,520:.370,|
00001cf0 34 39 35 3a df 35 37 30 2c 34 39 35 3a df 34 37 |495:.570,495:.47|
00001d00 30 2c 34 32 30 0d 04 56 a5 df 32 37 30 2c 34 32 |0,420..V..270,42|
00001d10 30 3a df 33 37 30 2c 34 39 35 3a ef 34 3a f1 8a |0:.370,495:.4:..|
00001d20 31 2c 31 39 29 3b 61 24 3b 8a 31 2c 32 30 29 3b |1,19);a$;.1,20);|
00001d30 61 31 24 3b 8a 31 31 2c 32 37 29 3b 22 50 72 65 |a1$;.11,27);"Pre|
00001d40 73 73 20 3c 53 50 41 43 45 2d 42 41 52 3e 22 3a |ss <SPACE-BAR>":|
00001d50 e3 6e 3d 30 b8 31 30 30 30 3a ed 3a ef 32 38 2c |.n=0.1000:.:.28,|
00001d60 31 2c 31 38 2c 33 38 2c 36 3a e3 6e 3d 31 b8 31 |1,18,38,6:.n=1.1|
00001d70 35 3a ef 31 30 3a ed 3a ef 32 36 3a f5 3a ff 22 |5:.10:.:.26:.:."|
00001d80 46 58 31 39 22 3a 62 24 3d c2 61 24 2c 33 37 29 |FX19":b$=.a$,37)|
00001d90 3a 62 31 24 3d c2 61 31 24 2c 33 37 29 3a 62 24 |:b1$=.a1$,37):b$|
00001da0 3d 62 24 2b c0 61 24 2c 31 29 0d 04 60 58 62 31 |=b$+.a$,1)..`Xb1|
00001db0 24 3d 62 31 24 2b c0 61 31 24 2c 31 29 3a 61 24 |$=b1$+.a1$,1):a$|
00001dc0 3d 62 24 3a 61 31 24 3d 62 31 24 3a f1 8a 31 2c |=b$:a1$=b1$:..1,|
00001dd0 31 39 29 3b 61 24 3b 8a 31 2c 32 30 29 3b 61 31 |19);a$;.1,20);a1|
00001de0 24 3a fd a6 2d 39 39 3a ef 32 34 2c 34 3b 33 30 |$:..-99:.24,4;30|
00001df0 34 3b 31 32 37 34 3b 38 39 36 3b 31 36 2c 32 36 |4;1274;896;16,26|
00001e00 3a e1 0d 04 6a 05 3a 0d 04 74 e5 dc 20 53 43 41 |:...j.:..t.. SCA|
00001e10 4e 4e 49 4e 47 2c 44 45 54 41 49 4c 53 2c 4d 45 |NNING,DETAILS,ME|
00001e20 41 53 55 52 49 4e 47 2c 4d 45 52 43 55 52 59 2c |ASURING,MERCURY,|
00001e30 38 38 2c 35 38 2c 22 34 2c 38 35 30 6b 6d 22 2c |88,58,"4,850km",|
00001e40 35 39 20 44 41 59 53 2c 56 45 4e 55 53 2c 32 32 |59 DAYS,VENUS,22|
00001e50 35 2c 31 30 38 2c 22 31 32 2c 31 34 30 6b 6d 22 |5,108,"12,140km"|
00001e60 2c 32 34 37 20 44 41 59 53 2c 45 41 52 54 48 2c |,247 DAYS,EARTH,|
00001e70 33 36 35 2c 31 35 30 2c 22 31 32 2c 37 35 36 6b |365,150,"12,756k|
00001e80 6d 22 2c 32 33 20 68 72 73 3a 35 36 20 6d 69 6e |m",23 hrs:56 min|
00001e90 73 2c 4d 41 52 53 2c 36 38 37 2c 32 32 38 2c 22 |s,MARS,687,228,"|
00001ea0 36 2c 39 37 30 6b 6d 22 2c 32 34 20 68 72 73 3a |6,970km",24 hrs:|
00001eb0 33 37 20 6d 69 6e 73 2c 4a 55 50 49 54 45 52 2c |37 mins,JUPITER,|
00001ec0 34 32 38 38 2e 37 35 2c 37 37 38 2c 22 31 34 32 |4288.75,778,"142|
00001ed0 2c 36 30 30 6b 6d 22 2c 39 20 68 72 73 3a 35 30 |,600km",9 hrs:50|
00001ee0 20 6d 69 6e 73 2c 53 41 54 55 52 4e 0d 04 7e e8 | mins,SATURN..~.|
00001ef0 dc 20 31 30 37 36 37 2e 35 2c 31 34 32 37 2c 22 |. 10767.5,1427,"|
00001f00 31 32 30 2c 32 30 30 6b 6d 22 2c 31 30 20 68 72 |120,200km",10 hr|
00001f10 73 3a 31 34 20 6d 69 6e 73 2c 55 52 41 4e 55 53 |s:14 mins,URANUS|
00001f20 2c 33 30 36 36 30 2c 32 38 37 30 2c 22 34 39 2c |,30660,2870,"49,|
00001f30 30 30 30 6b 6d 22 2c 31 30 20 68 72 73 3a 34 39 |000km",10 hrs:49|
00001f40 20 6d 69 6e 73 2c 4e 45 50 54 55 4e 45 2c 36 30 | mins,NEPTUNE,60|
00001f50 32 32 35 2c 34 34 39 37 2c 22 35 30 2c 32 30 30 |225,4497,"50,200|
00001f60 6b 6d 22 2c 31 35 20 68 72 73 3a 34 38 20 6d 69 |km",15 hrs:48 mi|
00001f70 6e 73 2c 50 4c 55 54 4f 2c 39 30 35 32 30 2c 35 |ns,PLUTO,90520,5|
00001f80 39 30 30 2c 22 36 2c 34 30 30 6b 6d 22 2c 36 20 |900,"6,400km",6 |
00001f90 44 41 59 53 3a 39 20 68 72 73 2c 34 2c 35 31 35 |DAYS:9 hrs,4,515|
00001fa0 2c 32 35 2c 35 31 35 2c 32 35 2c 34 38 30 2c 34 |,25,515,25,480,4|
00001fb0 2c 34 38 30 2c 34 2c 35 31 32 2c 35 30 2c 35 35 |,480,4,512,50,55|
00001fc0 35 2c 31 31 30 2c 35 35 35 2c 31 31 30 2c 34 39 |5,110,555,110,49|
00001fd0 30 2c 35 30 0d 04 88 e7 dc 34 39 30 2c 35 30 2c |0,50.....490,50,|
00001fe0 35 35 35 2c 31 37 30 2c 35 39 30 2c 32 35 30 2c |555,170,590,250,|
00001ff0 35 39 30 2c 32 35 30 2c 35 31 35 2c 31 37 30 2c |590,250,515,170,|
00002000 35 31 35 2c 31 37 30 2c 35 39 30 2c 33 32 30 2c |515,170,590,320,|
00002010 36 31 35 2c 33 38 30 2c 36 31 35 2c 33 38 30 2c |615,380,615,380,|
00002020 35 34 30 2c 33 32 30 2c 35 34 30 2c 33 32 30 2c |540,320,540,320,|
00002030 36 31 35 2c 34 37 30 2c 37 36 35 2c 36 39 35 2c |615,470,765,695,|
00002040 37 36 35 2c 36 39 35 2c 35 33 30 2c 34 37 30 2c |765,695,530,470,|
00002050 35 33 30 2c 34 37 30 2c 37 36 35 2c 37 30 35 2c |530,470,765,705,|
00002060 38 30 35 2c 39 39 35 2c 38 30 35 2c 39 39 35 2c |805,995,805,995,|
00002070 35 36 30 2c 37 30 35 2c 35 36 30 2c 37 30 35 2c |560,705,560,705,|
00002080 38 30 35 2c 39 39 30 2c 37 34 35 2c 31 31 30 35 |805,990,745,1105|
00002090 2c 37 34 35 2c 31 31 30 35 2c 36 33 30 2c 39 39 |,745,1105,630,99|
000020a0 30 2c 36 33 30 2c 39 39 30 2c 37 34 35 2c 31 31 |0,630,990,745,11|
000020b0 31 30 2c 37 36 30 2c 31 32 31 30 0d 04 92 e9 dc |10,760,1210.....|
000020c0 37 36 30 2c 31 32 31 30 2c 36 35 30 2c 31 31 31 |760,1210,650,111|
000020d0 30 2c 36 35 30 2c 31 31 31 30 2c 37 36 30 2c 31 |0,650,1110,760,1|
000020e0 32 33 30 2c 37 32 30 2c 31 32 36 35 2c 37 32 30 |230,720,1265,720|
000020f0 2c 31 32 36 35 2c 36 39 30 2c 31 32 33 30 2c 36 |,1265,690,1230,6|
00002100 39 30 2c 31 32 33 30 2c 37 32 30 2c 31 2c 34 2c |90,1230,720,1,4,|
00002110 53 43 4f 52 43 48 45 44 20 52 4f 43 4b 2c 31 2c |SCORCHED ROCK,1,|
00002120 35 2c 4e 4f 4e 45 2c 32 2c 34 2c 48 4f 54 20 52 |5,NONE,2,4,HOT R|
00002130 4f 43 4b 2c 32 2c 35 2c 43 41 52 42 4f 4e 20 44 |OCK,2,5,CARBON D|
00002140 49 4f 58 49 44 45 2c 33 2c 34 2c 4d 41 4e 41 47 |IOXIDE,3,4,MANAG|
00002150 41 42 4c 45 20 52 4f 43 4b 2c 33 2c 35 2c 4e 49 |ABLE ROCK,3,5,NI|
00002160 54 52 4f 47 45 4e 2f 4f 58 59 47 45 4e 2c 34 2c |TROGEN/OXYGEN,4,|
00002170 34 2c 52 4f 43 4b 2f 44 55 53 54 2c 34 2c 35 2c |4,ROCK/DUST,4,5,|
00002180 4d 4f 53 54 4c 59 20 4e 49 54 52 4f 47 45 4e 2c |MOSTLY NITROGEN,|
00002190 39 2c 34 2c 56 45 52 59 20 43 4f 4c 44 20 52 4f |9,4,VERY COLD RO|
000021a0 43 4b 2c 39 0d 04 9c 63 dc 35 2c 4e 4f 4e 45 2c |CK,9...c.5,NONE,|
000021b0 33 30 2c 35 39 37 2c 38 30 2c 39 33 36 38 2c 31 |30,597,80,9368,1|
000021c0 30 30 2c 31 30 38 36 38 2c 36 30 2c 31 37 37 33 |00,10868,60,1773|
000021d0 2c 32 34 30 2c 31 35 31 38 32 39 38 36 2c 32 32 |,240,15182986,22|
000021e0 30 2c 39 30 39 33 31 30 31 2c 31 38 30 2c 36 31 |0,9093101,180,61|
000021f0 36 30 30 39 2c 31 39 30 2c 36 36 32 33 38 34 2c |6009,190,662384,|
00002200 34 30 2c 31 33 37 32 0d 04 a6 d6 dc 31 2c 31 34 |40,1372.....1,14|
00002210 2c 34 39 37 2c 36 2c 36 2c 31 2c 38 30 2c 35 32 |,497,6,6,1,80,52|
00002220 32 2c 32 32 2c 32 32 2c 31 2c 32 31 30 2c 35 35 |2,22,22,1,210,55|
00002230 32 2c 33 30 2c 33 30 2c 31 2c 33 35 30 2c 35 37 |2,30,30,1,350,57|
00002240 37 2c 32 30 2c 32 30 2c 31 2c 35 38 32 2c 36 34 |7,20,20,1,582,64|
00002250 37 2c 31 30 30 2c 31 30 30 2c 30 2c 35 37 30 2c |7,100,100,0,570,|
00002260 36 30 30 2c 31 32 2c 31 32 2c 31 2c 38 35 30 2c |600,12,12,1,850,|
00002270 36 38 32 2c 38 30 2c 38 30 2c 31 2c 38 35 30 2c |682,80,80,1,850,|
00002280 36 38 32 2c 31 33 30 2c 34 30 2c 30 2c 38 35 30 |682,130,40,0,850|
00002290 2c 36 38 32 2c 31 31 30 2c 33 30 2c 31 2c 38 35 |,682,110,30,1,85|
000022a0 30 2c 36 39 32 2c 31 30 30 2c 33 30 2c 31 2c 31 |0,692,100,30,1,1|
000022b0 30 34 37 2c 36 38 37 2c 34 30 2c 34 30 2c 31 2c |047,687,40,40,1,|
000022c0 31 31 36 30 2c 37 30 35 2c 34 31 2c 34 31 2c 31 |1160,705,41,41,1|
000022d0 2c 31 32 34 37 2c 37 30 35 2c 38 2c 38 0d ff |,1247,705,8,8..|
000022df 
guide.m0
guide.m1
guide.m2
guide.m4
guide.m5
.