ิCBb Main programm.œSœT”ฅœ8””œ8””œ8””œ8””œ8””œ8””œ8”””6”จœ8” ”œ8” ”œ8” ”œ8” ”œ8” ”œ8””œ8””œ8””œ8””œ8”””6”จœ8””œPœ8”‘œlœcฦ‚1”–œcฦ‚%œ8””œPœ8”‘œlœcฦ‚1”–œcฦ‚%œPœ8”‘œk œcฦ‚3”–œcฦ‚'œPœ8”‘œk œcฦ‚3”–œcฦ‚'ภ ศ €ฆ@”จ”   ”ฅœ8”?””œ8”>๎”””>๎”””>๎””œ8””œ8”””ฅœ8”””ฅœ8” ””ฅœ8”!””ฅœ8”"””ฅœ8””œ8”#”œ8”$”Œ ””?%”>&”ƒส € „ฅOภ ฬˆ ฏฬฮˆ ฦ‚ ฦ‚  ไ''„ ƒฦ‚ 5ศ‚ /ฬฮฮฮไ''(ไ'ฮ('„ Hศ‚ ฦ‚ ไ'ไ)เ)'„ ,ฬ ฬฮ ฮไ'' *ไ'ฮ*'ŠŸ\ŠŸJ” ฬ ฬ !”คภ"ภ"#ภ$ภ$%ภ&ภ('ภ*)ภ ฬ+ˆ+กฯฬฮ,ˆ,กฝฮะ.-ไ'เ'++ฦ‚ก\ภ&0ˆ/0 bโ/'ๆ+'‚ $ฤ/2ภ21ฤ/2ภ23ฤ/2ฤ/4ฬ42„ 7„ 1ส/&‚ ++13โ/'เ+'ฤ/2ภ12ฤ/2ภ32ฤ/2ภ2ฬ&&„ ŠŸ—ฦ1‚ ?ฦ3‚ 9”ฅฬ-ฮ)ฬ-ฬ)ฮ'5ฬ'6”ฑ56ฬ-6”ฐ6ฬ""ฬ$$เ-,„ จฦ3‚ 5”ฅฬ-6ฮ6)6ฬ-5ฬ5)5ฮ'ฬ'”ฑ65ฬ-”ฐฬ$$เ.,„ mฦ1‚ 5”ฅฬ-ฮ)ฬ-ฬ)ฮ'5ฬ'6”ฑ56ฬ-6”ฐ6ฬ""เ/,„ 2”ฅฬ-6ฮ6)6ฬ-5ฬ5)5ฮ'ฬ'”ฑ65ฬ-”ฐฬ##เ0,„ 2”ฅฬ-ฮ)ฬ-ฬ)ฮ'5ฬ'6”ฑ56ฬ-6”ฐ6ฬ$$เ.,์1,1เ,+ฬ%%Šž<Šž*”ƒ”ฅ”?2”>3์45” 6์66์676œ>689œ86œC1”ƒเ1ˆ7  ”๗89”๗:;Š/ๆ:‚  œ>;„ Hๆ:‚ ;์4<6” ์6์7œ>=>„ ž „ œ86”?”” <= „ ” <>œ86”œ86”œ86”@”œ86”A”Œ$”œ86”B”Œ"”œ86”C”Œ#”œ86”D”Œ%”œ86”E”Œ&”ศ#‚ ฬ$"?œ86”Fา?#6”66”Œ6”œ86”Gา?%6”66”Œ6”œ86”H”Œ ”œ86”@”œ86”%”I๎&””๎&””๎&””œ86”2”I๎3””๎3””๎3””œ86”J”Œ&”ๆ:€ ๆ:‚ ‡œ86”œ86”K”L”Ž”<”œ86”M”N”O”P”ฮ&Aˆ@A ?œ86ฤ@2”Œ2”Qฤ@2”Œ2”Iฤ@2”Œ2”Žโ@' '””ŠŸบ„ ”ƒฬ  „™บœ86”R”œ86”S”œ86”Œ ”T”Œ ””6B”6C”จ”ฅ”ฅ”จ”งU–4ฦภฤอออออออรยออออออออออรยอเ&อเ&เ$เ$รฦคยวฤะเ5ออฤอฤอฤอฤอฤออัรรรษรหคฯคฬคศฯฅฬฮาฯฅอรฅฬฮาภฆรฆรฆวฯฦฦรรรรหคฯคศศฮคสคสคศศฮรษฅลวศศศฤรภฆรฆฬคฤ฿ศฤฤรษฅฤ฿ศฤรษฅฤ฿ศฤรรฅฤ฿ศฤรภฆรฅฤ฿ศฤรภฆฤรรฤรฆรฆรฤรรฺหรรวคฤฤยฆฦคสษฅภ ฺรกฦอวมขรฅวภฆษษอัััััฦคฤฺภฆฺัอเ4เ4ัฬคษุูหคเ<รฆรฅภฆรฤรฆออีรรยฤฤยฤมฆมฐI"hc9999c2c1c0c5tvac2147483647vstart_levelvmax_levelvlevelc.78c.95c.65c06c6c7c8c4c15c9c10c12c3vindexvrowtvcoltvratio1tvratio2c1.5vminus_countvother_countvplus_countvtotal_countvtopvvfc.4vvcfc.3ttvoffsetc.5vpoint_counttvminusevplusettvwarblec144c.1c288c.05c.75c.6c.55vtot_primesvcnttvaasdfsdfavjackshitcc Program to calculate the valuesc of one layer of elements of thec three-dimensional analogue ofc Pascal's Triangle, and to plot thec primeness of +1 & -1 values.c up to 3000 factors at level 219c (c) 1988,1989 by Jim Nugentc This programc RECIMAGE.EXE generates values and a graphicc display for one level of Pascal's Tetrahedron.c It saves the values to a text file, and c the screen image data to another file that can bec viewed using PLAIMAGE.EXE. Start with levelsc 5 to 20. Level 35 takes 5 minutes (XT) to calculate,c while level 55 will take 3 or 4 hours (XT). Once c saved with this program, PLAIMAGE can call anyc level back in under 30 seconds.c Do you want to print out all element values.c Use the printer (y or n):vp$c USING drive & directory: c:\levelsc Save array to disk (y or n):vd$clevel to start with:clevel to end with:tc/c---------------cADJACENT PRIMES c NONEc MINUS c PLUS c PLUS & MINUScenter 0 to exitcLEVEL = vttt$vddd$evtemp1$evtemp2$vpt_num$vdiskimage$cBcPcMcNvimage$vuuu$veee$cC:\LEVELS\cIMAGEtc.txtcnewoldcbytecycPRINTERcVALUEcnewctextcFILE EXISTSc=======================c PLUS 1 PRIMES:cMINUS 1 PRIMES:cOTHER ELEMENTS:cTOTAL ELEMENTS:c UNIQUE:c PRIMES/OTHER:c PRIMES/TOTAL:c LEVEL:c cpointcount = c - + cCOUNTc 0c 1c 3c 1c cfinished recordingcTet levels from c to chistory2,1:9000,1:3points2,1:260,1:260pt$1,1:9000point$fone$fs,n,prod2$fs,n,quot2$fs,int$ftwo$fs,s,isgreaterss,n,n,prime_testfzero$fs,n,outd$fe:\true\mtk\hugelibิC…b prime_testss,n,n,nเเเเเฦ‚ ภ„ ภเฦ‚ ภ„ ภ’"€ ภาศศษฮครรฅรภฆศรษฮครรฅรภฆมฆา(9]a2minus_primea3plus_primetc1c0a1test_num$vn$vn1$vm$vm1$vpower$vmpower$tss,n,n,prime_testfzero$fone$fs,s,dif$ftwo$fs,s,s,pwrmod$fs,s,isequalfs,s,sum$