8bitfiles.net/archives

home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / BINOMIAL-MULT / c64.bas
Unknown | 2019-04-13 | 2.8 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
`100%`	gt2	Kopftext: '100 PRINT'	default (weak)
`100%`	detectItEasy	Format: plain text[LF]	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 30 20 50 52 49 4e | 54 22 93 90 11 11 11 11 |100 PRIN|T"......|
|00000010| 11 22 3a 50 4f 4b 45 35 | 33 32 37 32 2c 32 33 0a |.":POKE5|3272,23.|
|00000020| 31 31 30 20 50 52 49 4e | 54 22 1d 1d 1d 1d 1d d4 |110 PRIN|T"......|
|00000030| 48 49 53 20 44 52 49 4c | 4c 20 49 53 20 54 4f 20 |HIS DRIL|L IS TO |
|00000040| 48 45 4c 50 20 59 4f 55 | 20 49 4e 20 22 0a 31 31 |HELP YOU| IN ".11|
|00000050| 32 20 50 52 49 4e 54 0a | 31 31 33 20 50 52 49 4e |2 PRINT.|113 PRIN|
|00000060| 54 22 1d 1d 1d 1d 1d 1d | 1d 1d 1d 1d 42 49 4e 4f |T"......|....BINO|
|00000070| 4d 49 41 4c 20 4d 55 4c | 54 49 50 4c 49 43 41 54 |MIAL MUL|TIPLICAT|
|00000080| 49 4f 4e 2e 22 0a 31 31 | 34 20 50 52 49 4e 54 0a |ION.".11|4 PRINT.|
|00000090| 31 31 36 20 50 52 49 4e | 54 22 1d 1d 1d 1d 1d 1d |116 PRIN|T"......|
|000000a0| d3 54 55 44 59 20 54 48 | 45 20 54 57 4f 20 42 49 |.TUDY TH|E TWO BI|
|000000b0| 4e 4f 4d 49 41 4c 53 20 | 41 4e 44 22 0a 31 31 37 |NOMIALS |AND".117|
|000000c0| 20 50 52 49 4e 54 0a 31 | 31 38 20 50 52 49 4e 54 | PRINT.1|18 PRINT|
|000000d0| 22 1d 1d 1d 1d 54 48 45 | 4e 20 54 59 50 45 20 49 |"....THE|N TYPE I|
|000000e0| 4e 20 54 48 45 20 54 48 | 52 45 45 20 4e 55 4d 42 |N THE TH|REE NUMB|
|000000f0| 45 52 53 22 0a 31 32 30 | 20 50 52 49 4e 54 0a 31 |ERS".120| PRINT.1|
|00000100| 32 32 20 50 52 49 4e 54 | 22 1d 1d 1d 1d 1d 1d 1d |22 PRINT|".......|
|00000110| 1d 1d 1d 1d 1d 1d 1d c1 | 20 20 20 c2 20 20 20 20 |........|   .    |
|00000120| c3 22 0a 31 32 34 20 50 | 52 49 4e 54 22 20 20 20 |.".124 P|RINT"   |
|00000130| 20 20 20 20 20 20 20 20 | 20 20 20 b7 b7 b7 b7 b7 |        |   .....|
|00000140| b7 b7 b7 b7 b7 b7 22 0a | 31 32 35 20 50 52 49 4e |......".|125 PRIN|
|00000150| 54 22 1d 1d 1d 1d 1d 1d | cd 41 4b 45 20 53 55 52 |T"......|.AKE SUR|
|00000160| 45 20 54 48 41 54 20 49 | 46 20 4f 4e 45 20 4f 46 |E THAT I|F ONE OF|
|00000170| 20 54 48 45 4d 22 3a 50 | 52 49 4e 54 0a 31 32 36 | THEM":P|RINT.126|
|00000180| 20 50 52 49 4e 54 22 1d | 1d 1d 1d 1d 1d 49 53 20 | PRINT".|.....IS |
|00000190| 4e 45 47 41 54 49 56 45 | 20 54 48 41 54 20 59 4f |NEGATIVE| THAT YO|
|000001a0| 55 20 54 59 50 45 20 49 | 4e 20 54 48 45 22 3a 50 |U TYPE I|N THE":P|
|000001b0| 52 49 4e 54 0a 31 32 37 | 20 50 52 49 4e 54 22 1d |RINT.127| PRINT".|
|000001c0| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 4d 49 4e 55 53 20 53 |........|.MINUS S|
|000001d0| 49 47 4e 2e 22 0a 31 32 | 38 20 50 52 49 4e 54 3a |IGN.".12|8 PRINT:|
|000001e0| 50 52 49 4e 54 22 1e 20 | 48 49 54 20 53 50 41 43 |PRINT". |HIT SPAC|
|000001f0| 45 42 41 52 22 0a 31 32 | 39 20 47 45 54 41 24 3a |EBAR".12|9 GETA$:|
|00000200| 49 46 41 24 3c 3e 22 20 | 22 54 48 45 4e 31 32 39 |IFA$<>" |"THEN129|
|00000210| 0a 31 33 30 20 50 52 49 | 4e 54 22 90 93 22 0a 31 |.130 PRI|NT"..".1|
|00000220| 33 31 20 50 52 49 4e 54 | 22 11 11 11 1d 1d 1d 1d |31 PRINT|".......|
|00000230| 1d 1d c9 46 20 59 4f 55 | 20 4d 41 4b 45 20 41 20 |...F YOU| MAKE A |
|00000240| 4d 49 53 54 41 4b 45 22 | 0a 31 33 32 20 50 52 49 |MISTAKE"|.132 PRI|
|00000250| 4e 54 22 11 11 11 11 1d | 1d 1d 1d 1d 1d 59 4f 55 |NT".....|.....YOU|
|00000260| 20 57 49 4c 4c 20 42 45 | 20 20 47 49 56 45 4e 20 | WILL BE|  GIVEN |
|00000270| 53 4f 4d 45 20 48 45 4c | 50 22 3a 50 52 49 4e 54 |SOME HEL|P":PRINT|
|00000280| 22 11 11 11 1d 1d 1d 1d | 1d 1d 41 4e 44 20 54 48 |".......|..AND TH|
|00000290| 45 20 43 4f 52 52 45 43 | 54 20 41 4e 53 57 45 52 |E CORREC|T ANSWER|
|000002a0| 22 0a 31 33 33 20 50 52 | 49 4e 54 22 11 11 11 11 |".133 PR|INT"....|
|000002b0| 11 11 11 11 1d 1d 1d 1d | 1d 1d d7 48 45 4e 20 59 |........|...HEN Y|
|000002c0| 4f 55 20 41 52 45 20 52 | 45 41 44 59 20 48 49 54 |OU ARE R|EADY HIT|
|000002d0| 20 41 4e 59 20 4b 45 59 | 22 3a 50 52 49 4e 54 22 | ANY KEY|":PRINT"|
|000002e0| 11 11 11 1d 1d 1d 28 d1 | 20 57 49 4c 4c 20 45 4e |......(.| WILL EN|
|000002f0| 44 20 44 52 49 4c 4c 29 | 22 0a 31 33 34 20 47 45 |D DRILL)|".134 GE|
|00000300| 54 41 24 3a 49 46 41 24 | 3d 22 22 54 48 45 4e 31 |TA$:IFA$|=""THEN1|
|00000310| 33 34 0a 31 33 35 20 50 | 52 49 4e 54 22 93 22 3a |34.135 P|RINT".":|
|00000320| 49 46 41 24 3d 22 51 22 | 54 48 45 4e 20 45 4e 44 |IFA$="Q"|THEN END|
|00000330| 0a 31 30 30 30 20 41 3d | 49 4e 54 28 52 4e 44 28 |.1000 A=|INT(RND(|
|00000340| 31 29 2a 31 32 29 2b 31 | 3a 43 3d 49 4e 54 28 52 |1)*12)+1|:C=INT(R|
|00000350| 4e 44 28 31 29 2a 31 32 | 29 2b 31 0a 31 30 31 30 |ND(1)*12|)+1.1010|
|00000360| 20 42 3d 49 4e 54 28 52 | 4e 44 28 31 29 2a 32 34 | B=INT(R|ND(1)*24|
|00000370| 29 2d 31 32 3a 44 3d 49 | 4e 54 28 52 4e 44 28 31 |)-12:D=I|NT(RND(1|
|00000380| 29 2a 32 34 29 2d 31 32 | 0a 31 30 31 35 20 50 4f |)*24)-12|.1015 PO|
|00000390| 4b 45 35 33 32 38 30 2c | 38 3a 50 52 49 4e 54 22 |KE53280,|8:PRINT"|
|000003a0| 90 22 3a 49 46 42 3d 30 | 4f 52 44 3d 30 54 48 45 |.":IFB=0|ORD=0THE|
|000003b0| 4e 31 30 31 30 0a 31 30 | 31 36 20 49 46 41 2a 44 |N1010.10|16 IFA*D|
|000003c0| 2b 28 42 2a 43 29 3d 30 | 54 48 45 4e 31 30 31 30 |+(B*C)=0|THEN1010|
|000003d0| 0a 31 30 31 38 20 49 46 | 41 3d 41 42 53 28 42 29 |.1018 IF|A=ABS(B)|
|000003e0| 4f 52 43 3d 41 42 53 28 | 44 29 54 48 45 4e 31 30 |ORC=ABS(|D)THEN10|
|000003f0| 30 30 0a 31 30 32 30 20 | 47 4f 53 55 42 31 30 32 |00.1020 |GOSUB102|
|00000400| 35 0a 31 30 32 32 20 47 | 4f 54 4f 31 31 30 30 0a |5.1022 G|OTO1100.|
|00000410| 31 30 32 35 20 49 46 42 | 3c 30 4f 52 44 3c 30 54 |1025 IFB|<0ORD<0T|
|00000420| 48 45 4e 31 30 33 31 0a | 31 30 33 30 20 50 52 49 |HEN1031.|1030 PRI|
|00000430| 4e 54 22 1d 1d 1d 1d 1d | 1d 1d 28 22 41 22 58 2b |NT".....|..("A"X+|
|00000440| 22 42 22 29 28 22 43 22 | 58 2b 22 44 22 29 3d 3f |"B")("C"|X+"D")=?|
|00000450| 22 0a 31 30 33 31 20 49 | 46 42 3c 30 41 4e 44 44 |".1031 I|FB<0ANDD|
|00000460| 3e 30 54 48 45 4e 50 52 | 49 4e 54 22 1d 1d 1d 1d |>0THENPR|INT"....|
|00000470| 1d 1d 1d 28 22 41 22 58 | 22 42 22 29 28 22 43 22 |...("A"X|"B")("C"|
|00000480| 58 2b 22 44 22 29 3d 3f | 22 0a 31 30 33 32 20 49 |X+"D")=?|".1032 I|
|00000490| 46 42 3e 30 41 4e 44 44 | 3c 30 54 48 45 4e 50 52 |FB>0ANDD|<0THENPR|
|000004a0| 49 4e 54 22 1d 1d 1d 1d | 1d 1d 1d 28 22 41 22 58 |INT"....|...("A"X|
|000004b0| 2b 22 42 22 29 28 22 43 | 22 58 22 44 22 29 3d 3f |+"B")("C|"X"D")=?|
|000004c0| 22 0a 31 30 33 33 20 49 | 46 42 3c 30 41 4e 44 44 |".1033 I|FB<0ANDD|
|000004d0| 3c 30 54 48 45 4e 50 52 | 49 4e 54 22 1d 1d 1d 1d |<0THENPR|INT"....|
|000004e0| 1d 1d 1d 28 22 41 22 58 | 22 42 22 29 28 22 43 22 |...("A"X|"B")("C"|
|000004f0| 58 22 44 22 29 3d 3f 22 | 0a 31 30 33 34 20 52 45 |X"D")=?"|.1034 RE|
|00000500| 54 55 52 4e 0a 31 30 33 | 35 20 50 52 49 4e 54 22 |TURN.103|5 PRINT"|
|00000510| 11 11 22 3a 49 46 42 2a | 44 3c 30 4f 52 41 2a 44 |..":IFB*|D<0ORA*D|
|00000520| 2b 28 42 2a 43 29 3c 30 | 54 48 45 4e 31 30 34 31 |+(B*C)<0|THEN1041|
|00000530| 0a 31 30 34 30 20 50 52 | 49 4e 54 22 1d 1d 1d 1d |.1040 PR|INT"....|
|00000540| 1d 1d 1d 22 41 2a 43 22 | 58 91 32 11 2b 22 41 2a |..."A*C"|X.2.+"A*|
|00000550| 44 2b 28 42 2a 43 29 22 | 58 2b 22 42 2a 44 0a 31 |D+(B*C)"|X+"B*D.1|
|00000560| 30 34 31 20 49 46 42 09 | 0a 31 30 34 32 20 49 46 |041 IFB.|.1042 IF|
|00000570| 42 2a 44 3c 30 41 4e 44 | 41 2a 44 2b 28 42 2a 43 |B*D<0AND|A*D+(B*C|
|00000580| 29 3e 30 54 48 45 4e 50 | 52 49 4e 54 22 1d 1d 1d |)>0THENP|RINT"...|
|00000590| 1d 1d 1d 1d 22 41 2a 43 | 22 58 91 32 11 2b 22 41 |...."A*C|"X.2.+"A|
|000005a0| 2a 44 2b 28 42 2a 43 29 | 22 58 22 42 2a 44 0a 31 |*D+(B*C)|"X"B*D.1|
|000005b0| 30 34 33 20 49 46 42 2a | 44 3e 30 41 4e 44 41 2a |043 IFB*|D>0ANDA*|
|000005c0| 44 2b 28 42 2a 43 29 3c | 30 54 48 45 4e 50 52 49 |D+(B*C)<|0THENPRI|
|000005d0| 4e 54 22 1d 1d 1d 1d 1d | 1d 1d 22 41 2a 43 22 58 |NT".....|.."A*C"X|
|000005e0| 91 32 11 22 41 2a 44 2b | 28 42 2a 43 29 22 58 2b |.2."A*D+|(B*C)"X+|
|000005f0| 22 42 2a 44 0a 31 30 35 | 31 20 49 46 57 3e 35 30 |"B*D.105|1 IFW>50|
|00000600| 30 30 47 4f 54 4f 33 30 | 39 35 0a 31 30 36 30 20 |00GOTO30|95.1060 |
|00000610| 47 4f 54 4f 31 33 35 0a | 31 31 30 30 20 50 52 49 |GOTO135.|1100 PRI|
|00000620| 4e 54 3a 50 52 49 4e 54 | 3a 50 52 49 4e 54 3a 50 |NT:PRINT|:PRINT:P|
|00000630| 52 49 4e 54 3a 50 52 49 | 4e 54 22 1d 1d 1d 1d 1d |RINT:PRI|NT".....|
|00000640| 1d 1d 1d 1d 1d c1 58 91 | 32 11 2b c2 58 2b c3 22 |......X.|2.+.X+."|
|00000650| 0a 31 31 31 30 20 50 52 | 49 4e 54 22 1d 1d 1d 1d |.1110 PR|INT"....|
|00000660| 11 11 11 11 11 d4 59 50 | 45 20 49 4e 20 54 48 45 |......YP|E IN THE|
|00000670| 20 4e 55 4d 42 45 52 53 | 20 c1 2c 20 c2 2c 20 41 | NUMBERS| ., ., A|
|00000680| 4e 44 20 c3 2e 22 3a 50 | 52 49 4e 54 22 1d 1d 1d |ND ..":P|RINT"...|
|00000690| 1d 11 c8 49 54 20 52 45 | 54 55 52 4e 20 41 46 54 |...IT RE|TURN AFT|
|000006a0| 45 52 20 45 41 43 48 22 | 0a 31 31 31 32 20 49 4e |ER EACH"|.1112 IN|
|000006b0| 50 55 54 45 2c 46 2c 47 | 0a 31 31 31 35 20 49 46 |PUTE,F,G|.1115 IF|
|000006c0| 45 3d 41 2a 43 41 4e 44 | 46 3d 41 2a 44 2b 28 42 |E=A*CAND|F=A*D+(B|
|000006d0| 2a 43 29 41 4e 44 47 3d | 42 2a 44 54 48 45 4e 47 |*C)ANDG=|B*DTHENG|
|000006e0| 4f 54 4f 31 31 31 37 0a | 31 31 31 36 20 47 4f 54 |OTO1117.|1116 GOT|
|000006f0| 4f 31 31 32 30 0a 31 31 | 31 37 20 50 52 49 4e 54 |O1120.11|17 PRINT|
|00000700| 22 d9 4f 55 20 41 52 45 | 20 43 4f 52 52 45 43 54 |".OU ARE| CORRECT|
|00000710| 21 20 c8 49 54 20 41 4e | 59 20 4b 45 59 20 54 4f |! .IT AN|Y KEY TO|
|00000720| 20 43 4f 4e 54 49 4e 55 | 45 22 0a 31 31 31 38 20 | CONTINU|E".1118 |
|00000730| 47 45 54 41 24 3a 49 46 | 41 24 3d 22 22 54 48 45 |GETA$:IF|A$=""THE|
|00000740| 4e 31 31 31 38 0a 31 31 | 31 39 20 47 4f 54 4f 31 |N1118.11|19 GOTO1|
|00000750| 33 35 0a 31 31 32 30 20 | 50 52 49 4e 54 22 93 22 |35.1120 |PRINT"."|
|00000760| 3a 46 4f 52 54 3d 31 54 | 4f 31 30 3a 46 4f 52 59 |:FORT=1T|O10:FORY|
|00000770| 3d 31 54 4f 31 35 3a 50 | 4f 4b 45 35 33 32 38 31 |=1TO15:P|OKE53281|
|00000780| 2c 59 3a 4e 45 58 54 59 | 3a 4e 45 58 54 54 0a 31 |,Y:NEXTY|:NEXTT.1|
|00000790| 31 32 33 20 50 52 49 4e | 54 22 1d 1d 1d 1d 1d 1d |123 PRIN|T"......|
|000007a0| 1d 1d 11 11 11 11 11 11 | 11 1c d9 cf d5 20 cd c1 |........|..... ..|
|000007b0| 09 00 20 c1 20 cd c9 d3 | d4 c1 cb c5 21 21 90 11 |.. . ...|....!!..|
|000007c0| 11 11 11 11 22 0a 31 31 | 32 34 20 50 52 49 4e 54 |....".11|24 PRINT|
|000007d0| 22 d4 48 49 4e 4b 20 43 | 41 52 45 46 55 4c 4c 59 |".HINK C|AREFULLY|
|000007e0| 20 41 42 4f 55 54 20 54 | 48 45 20 c6 cf c9 cc 20 | ABOUT T|HE .... |
|000007f0| 4d 45 54 48 4f 44 22 0a | 31 31 32 35 20 50 52 49 |METHOD".|1125 PRI|
|00000800| 4e 54 3a 50 52 49 4e 54 | 22 4f 46 20 42 49 4e 4f |NT:PRINT|"OF BINO|
|00000810| 4d 49 41 4c 20 4d 55 4c | 54 49 50 4c 49 43 41 54 |MIAL MUL|TIPLICAT|
|00000820| 49 4f 4e 20 41 4e 44 20 | 41 4c 53 4f 20 59 4f 55 |ION AND |ALSO YOU|
|00000830| 52 22 0a 31 31 32 36 20 | 50 52 49 4e 54 3a 50 52 |R".1126 |PRINT:PR|
|00000840| 49 4e 54 22 1d 1d 1d 1d | 1d 1d 1d 4e 45 47 41 54 |INT"....|...NEGAT|
|00000850| 49 56 45 20 53 49 47 4e | 53 2e 22 0a 31 31 33 30 |IVE SIGN|S.".1130|
|00000860| 20 46 4f 52 56 3d 31 54 | 4f 35 30 30 30 3a 4e 45 | FORV=1T|O5000:NE|
|00000870| 58 54 3a 50 52 49 4e 54 | 22 93 22 0a 33 30 30 30 |XT:PRINT|".".3000|
|00000880| 20 46 4f 52 57 3d 31 54 | 4f 35 30 30 30 3a 4e 45 | FORW=1T|O5000:NE|
|00000890| 58 54 3a 50 52 49 4e 54 | 22 11 11 11 11 11 11 11 |XT:PRINT|".......|
|000008a0| 22 3a 47 4f 53 55 42 31 | 30 32 35 0a 33 30 31 30 |":GOSUB1|025.3010|
|000008b0| 20 46 4f 52 57 3d 31 54 | 4f 35 30 30 30 3a 4e 45 | FORW=1T|O5000:NE|
|000008c0| 58 54 3a 20 20 50 52 49 | 4e 54 22 1e 20 20 20 20 |XT:  PRI|NT".    |
|000008d0| 20 20 20 20 20 20 a7 20 | 20 20 20 20 20 20 20 20 |      . |        |
|000008e0| a5 22 0a 33 30 32 30 20 | 50 52 49 4e 54 22 20 20 |.".3020 |PRINT"  |
|000008f0| 20 20 20 20 20 20 20 20 | 20 a3 a3 a3 a3 a3 a3 a3 |        | .......|
|00000900| a3 a3 22 0a 33 30 33 30 | 20 50 52 49 4e 54 22 20 |..".3030| PRINT" |
|00000910| 20 20 20 20 20 20 20 20 | 20 20 20 20 46 49 52 53 |        |    FIRS|
|00000920| 54 20 3d 22 41 2a 43 22 | 58 91 32 11 22 0a 33 30 |T ="A*C"|X.2.".30|
|00000930| 34 30 20 46 4f 52 57 3d | 31 54 4f 35 30 30 30 3a |40 FORW=|1TO5000:|
|00000940| 4e 45 58 54 3a 50 52 49 | 4e 54 22 1f 91 91 91 91 |NEXT:PRI|NT".....|
|00000950| 91 91 91 91 1d 1d 1d 1d | 1d 1d 1d 1d 1d 1d 1d 4f |........|.......O|
|00000960| 55 54 53 49 44 45 3d 22 | 41 2a 44 22 58 22 0a 33 |UTSIDE="|A*D"X".3|
|00000970| 30 35 30 20 50 52 49 4e | 54 22 1d 1d 1d 1d 1d 1d |050 PRIN|T"......|
|00000980| 1d 1d 1d aa a3 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |........|........|
|00000990| a3 a3 a3 a5 00 0a 33 30 | 36 30 20 46 4f 52 57 3d |......30|60 FORW=|
|000009a0| 31 54 4f 35 30 30 30 3a | 4e 45 58 54 3a 50 52 49 |1TO5000:|NEXT:PRI|
|000009b0| 4e 54 22 1c 1d 1d 1d 1d | 1d 1d 1d 1d 1d 1d 1d 1d |NT".....|........|
|000009c0| 49 4e 53 49 44 45 3d 22 | 42 2a 43 22 58 22 0a 33 |INSIDE="|B*C"X".3|
|000009d0| 30 36 32 20 50 52 49 4e | 54 22 1c 1d 1d 1d 1d 1d |062 PRIN|T"......|
|000009e0| 1d 1d 1d 1d 1d 1d 1d 1d | 1d aa a3 a3 a3 a3 a3 a3 |........|........|
|000009f0| b4 00 0a 33 30 36 37 20 | 46 4f 52 57 3d 31 54 4f |...3067 |FORW=1TO|
|00000a00| 35 30 30 30 3a 4e 45 58 | 54 3a 50 52 49 4e 54 22 |5000:NEX|T:PRINT"|
|00000a10| 90 1d 1d 1d 1d 1d 1d 1d | 1d 1d 1d 1d 1d 1d 11 11 |........|........|
|00000a20| 11 11 11 09 00 a4 a4 a4 | a4 a4 a4 a4 a4 a4 a4 b4 |........|........|
|00000a30| 22 0a 33 30 37 30 20 50 | 52 49 4e 54 22 90 1d 1d |".3070 P|RINT"...|
|00000a40| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 1d 1d 1d 1d 4c 41 53 |........|.....LAS|
|00000a50| 54 3d 22 42 2a 44 0a 33 | 30 38 30 20 46 4f 52 57 |T="B*D.3|080 FORW|
|00000a60| 3d 31 54 4f 35 30 30 30 | 3a 4e 45 58 54 3a 50 52 |=1TO5000|:NEXT:PR|
|00000a70| 49 4e 54 22 11 11 ce 4f | 54 49 43 45 20 54 48 41 |INT"...O|TICE THA|
|00000a80| 54 20 4f 55 54 53 49 44 | 45 20 2b 20 49 4e 53 49 |T OUTSID|E + INSI|
|00000a90| 44 45 3d 22 41 2a 44 2b | 28 42 2a 43 29 22 58 22 |DE="A*D+|(B*C)"X"|
|00000aa0| 0a 33 30 39 30 20 46 4f | 52 57 3d 31 54 4f 35 30 |.3090 FO|RW=1TO50|
|00000ab0| 30 30 3a 4e 45 58 54 57 | 3a 50 52 49 4e 54 22 1c |00:NEXTW|:PRINT".|
|00000ac0| 11 22 3a 47 4f 54 4f 31 | 30 33 35 0a 33 30 39 35 |.":GOTO1|035.3095|
|00000ad0| 20 50 52 49 4e 54 22 90 | 11 c8 49 54 20 41 4e 59 | PRINT".|..IT ANY|
|00000ae0| 20 4b 45 59 20 54 4f 20 | 43 4f 4e 54 49 4e 55 45 | KEY TO |CONTINUE|
|00000af0| 22 0a 33 30 39 36 20 47 | 45 54 41 24 3a 49 46 41 |".3096 G|ETA$:IFA|
|00000b00| 24 3d 22 22 54 48 45 4e | 33 30 39 36 0a 33 31 30 |$=""THEN|3096.310|
|00000b10| 30 20 50 52 49 4e 54 22 | 93 11 11 11 11 11 11 11 |0 PRINT"|........|
|00000b20| 11 11 11 11 ce 4f 57 20 | 54 52 59 20 41 4e 4f 54 |.....OW |TRY ANOT|
|00000b30| 48 45 52 20 41 4e 44 20 | 44 4f 4e 27 54 20 53 43 |HER AND |DON'T SC|
|00000b40| 52 45 57 20 55 50 22 3a | 46 4f 52 57 3d 31 54 4f |REW UP":|FORW=1TO|
|00000b50| 32 30 30 30 3a 4e 45 58 | 54 3a 47 4f 54 4f 31 33 |2000:NEX|T:GOTO13|
|00000b60| 35 0a                   |                         |5.      |        |
+--------+-------------------------+-------------------------+--------+--------+