8bitfiles.net/archives

home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / BAR-GRAPH / c64.bas
Unknown | 2019-04-13 | 3.0 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: '5 REM'	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 35 20 52 45 4d 3a 57 52 | 49 54 54 45 4e 20 42 59 |5 REM:WR|ITTEN BY|
|00000010| 20 4d 2e 43 2e 48 4f 46 | 48 45 49 4e 5a 2c 38 2f | M.C.HOF|HEINZ,8/|
|00000020| 31 2f 37 38 0a 37 20 47 | 4f 20 54 4f 20 37 30 30 |1/78.7 G|O TO 700|
|00000030| 0a 31 30 20 50 4f 4b 45 | 35 33 32 38 30 2c 31 3a |.10 POKE|53280,1:|
|00000040| 50 4f 4b 45 35 33 32 38 | 31 2c 31 3a 50 52 49 4e |POKE5328|1,1:PRIN|
|00000050| 54 22 93 9c 11 11 11 22 | 0a 32 30 20 50 52 49 4e |T"....."|.20 PRIN|
|00000060| 54 22 20 20 20 20 20 20 | 54 48 49 53 20 50 52 4f |T"      |THIS PRO|
|00000070| 47 52 41 4d 20 57 49 4c | 4c 20 50 52 45 53 45 4e |GRAM WIL|L PRESEN|
|00000080| 54 20 41 00 0a 33 30 20 | 50 52 49 4e 54 22 20 20 |T A..30 |PRINT"  |
|00000090| 20 20 20 20 42 41 52 20 | 47 52 41 50 48 20 57 49 |    BAR |GRAPH WI|
|000000a0| 54 48 20 42 41 52 20 4c | 45 4e 47 54 48 53 00 0a |TH BAR L|ENGTHS..|
|000000b0| 34 30 20 50 52 49 4e 54 | 22 20 20 20 20 20 20 45 |40 PRINT|"      E|
|000000c0| 51 55 41 4c 20 54 4f 20 | 54 48 45 20 51 55 41 4e |QUAL TO |THE QUAN|
|000000d0| 54 49 54 49 45 53 00 0a | 35 30 20 50 52 49 4e 54 |TITIES..|50 PRINT|
|000000e0| 22 20 20 20 20 20 20 45 | 4e 54 45 52 45 44 2e 20 |"      E|NTERED. |
|000000f0| 54 48 45 20 53 43 41 4c | 45 20 4f 46 20 54 48 45 |THE SCAL|E OF THE|
|00000100| 00 0a 36 30 20 50 52 49 | 4e 54 22 20 20 20 20 20 |..60 PRI|NT"     |
|00000110| 20 47 52 41 50 48 20 49 | 53 20 41 55 54 4f 4d 41 | GRAPH I|S AUTOMA|
|00000120| 54 49 43 41 4c 4c 59 00 | 0a 37 30 20 50 52 49 4e |TICALLY.|.70 PRIN|
|00000130| 54 22 20 20 20 20 20 20 | 41 44 4a 55 53 54 45 44 |T"      |ADJUSTED|
|00000140| 20 54 4f 20 53 55 49 54 | 20 54 48 45 20 56 41 4c | TO SUIT| THE VAL|
|00000150| 55 45 53 00 0a 38 30 20 | 50 52 49 4e 54 22 20 20 |UES..80 |PRINT"  |
|00000160| 20 20 20 20 45 4e 54 45 | 52 45 44 2e 54 48 45 20 |    ENTE|RED.THE |
|00000170| 51 55 41 4e 54 49 54 49 | 45 53 20 4d 55 53 54 20 |QUANTITI|ES MUST |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 42 45 20 42 |        |    BE B|
|00000190| 45 54 57 45 45 4e 20 31 | 20 41 4e 44 20 31 30 30 |ETWEEN 1| AND 100|
|000001a0| 30 2e 00 0a 38 35 20 46 | 4f 52 20 54 3d 31 20 54 |0...85 F|OR T=1 T|
|000001b0| 4f 20 37 35 30 30 3a 4e | 45 58 54 3a 50 52 49 4e |O 7500:N|EXT:PRIN|
|000001c0| 54 22 93 11 11 11 22 0a | 39 30 20 50 52 49 4e 54 |T"....".|90 PRINT|
|000001d0| 22 48 4f 57 20 4d 41 4e | 59 20 4e 41 4d 45 53 20 |"HOW MAN|Y NAMES |
|000001e0| 57 49 4c 4c 20 54 48 45 | 52 45 20 42 45 3f 22 3a |WILL THE|RE BE?":|
|000001f0| 50 52 49 4e 54 3a 50 52 | 49 4e 54 3a 50 52 49 4e |PRINT:PR|INT:PRIN|
|00000200| 54 0a 31 30 30 20 47 45 | 54 20 5a 3a 49 46 20 5a |T.100 GE|T Z:IF Z|
|00000210| 3d 30 20 54 48 45 4e 31 | 30 30 0a 31 31 30 20 50 |=0 THEN1|00.110 P|
|00000220| 52 49 4e 54 22 57 48 41 | 54 20 49 53 20 46 49 52 |RINT"WHA|T IS FIR|
|00000230| 53 54 20 4e 41 4d 45 22 | 3a 49 4e 50 55 54 20 41 |ST NAME"|:INPUT A|
|00000240| 24 0a 31 32 30 20 50 52 | 49 4e 54 22 57 48 41 54 |$.120 PR|INT"WHAT|
|00000250| 20 49 53 20 46 49 52 53 | 54 20 51 55 41 4e 54 49 | IS FIRS|T QUANTI|
|00000260| 54 59 22 3b 3a 49 4e 50 | 55 54 20 41 0a 31 33 30 |TY";:INP|UT A.130|
|00000270| 20 49 46 20 5a 3d 31 20 | 54 48 45 4e 20 32 38 30 | IF Z=1 |THEN 280|
|00000280| 0a 31 34 30 20 50 52 49 | 4e 54 22 57 48 41 54 20 |.140 PRI|NT"WHAT |
|00000290| 49 53 20 53 45 43 4f 4e | 44 20 4e 41 4d 45 22 3b |IS SECON|D NAME";|
|000002a0| 3a 49 4e 50 55 54 20 42 | 24 0a 31 35 30 20 50 52 |:INPUT B|$.150 PR|
|000002b0| 49 4e 54 22 57 48 41 54 | 20 49 53 20 53 45 43 4f |INT"WHAT| IS SECO|
|000002c0| 4e 44 20 51 55 41 4e 54 | 49 54 59 22 3b 3a 49 4e |ND QUANT|ITY";:IN|
|000002d0| 50 55 54 20 42 0a 31 36 | 30 20 49 46 20 5a 3d 32 |PUT B.16|0 IF Z=2|
|000002e0| 20 54 48 45 4e 20 32 38 | 30 0a 31 37 30 20 50 52 | THEN 28|0.170 PR|
|000002f0| 49 4e 54 22 57 48 41 54 | 20 49 53 20 54 48 49 52 |INT"WHAT| IS THIR|
|00000300| 44 20 4e 41 4d 45 22 3b | 3a 49 4e 50 55 54 20 43 |D NAME";|:INPUT C|
|00000310| 24 0a 31 38 30 20 50 52 | 49 4e 54 22 57 48 41 54 |$.180 PR|INT"WHAT|
|00000320| 20 49 53 20 54 48 49 52 | 44 20 51 55 41 4e 54 49 | IS THIR|D QUANTI|
|00000330| 54 59 22 3b 3a 49 4e 50 | 55 54 20 43 0a 31 39 30 |TY";:INP|UT C.190|
|00000340| 20 49 46 20 5a 3d 33 20 | 54 48 45 4e 20 32 38 30 | IF Z=3 |THEN 280|
|00000350| 0a 32 30 30 20 50 52 49 | 4e 54 22 57 48 41 54 20 |.200 PRI|NT"WHAT |
|00000360| 49 53 20 46 4f 55 52 54 | 48 20 4e 41 4d 45 22 3b |IS FOURT|H NAME";|
|00000370| 3a 49 4e 50 55 54 20 44 | 24 0a 32 31 30 20 50 52 |:INPUT D|$.210 PR|
|00000380| 49 4e 54 22 57 48 41 54 | 20 49 53 20 46 4f 55 52 |INT"WHAT| IS FOUR|
|00000390| 54 48 20 51 55 41 4e 54 | 49 54 59 22 3b 3a 49 4e |TH QUANT|ITY";:IN|
|000003a0| 50 55 54 20 44 0a 32 32 | 30 20 49 46 20 5a 3d 34 |PUT D.22|0 IF Z=4|
|000003b0| 20 54 48 45 4e 20 32 38 | 30 0a 32 33 30 20 50 52 | THEN 28|0.230 PR|
|000003c0| 49 4e 54 22 57 48 41 54 | 20 49 53 20 46 49 46 54 |INT"WHAT| IS FIFT|
|000003d0| 48 20 4e 41 4d 45 22 3b | 3a 49 4e 50 55 54 20 45 |H NAME";|:INPUT E|
|000003e0| 24 0a 32 34 30 20 50 52 | 49 4e 54 22 57 48 41 54 |$.240 PR|INT"WHAT|
|000003f0| 20 49 53 20 46 49 46 54 | 48 20 51 55 41 4e 54 49 | IS FIFT|H QUANTI|
|00000400| 54 59 22 3b 3a 49 4e 50 | 55 54 20 45 0a 32 35 30 |TY";:INP|UT E.250|
|00000410| 20 49 46 20 5a 3d 35 20 | 54 48 45 4e 20 32 38 30 | IF Z=5 |THEN 280|
|00000420| 0a 32 36 30 20 50 52 49 | 4e 54 22 57 48 41 54 20 |.260 PRI|NT"WHAT |
|00000430| 49 53 20 53 49 58 54 48 | 20 4e 41 4d 45 22 3b 3a |IS SIXTH| NAME";:|
|00000440| 49 4e 50 55 54 20 46 24 | 0a 32 37 30 20 50 52 49 |INPUT F$|.270 PRI|
|00000450| 4e 54 22 57 48 41 54 20 | 49 53 20 53 49 58 54 48 |NT"WHAT |IS SIXTH|
|00000460| 20 51 55 41 4e 54 49 54 | 59 22 3b 3a 49 4e 50 55 | QUANTIT|Y";:INPU|
|00000470| 54 20 46 0a 32 38 30 20 | 49 46 20 41 3e 42 20 41 |T F.280 |IF A>B A|
|00000480| 4e 44 20 41 3e 43 20 41 | 4e 44 20 41 3e 44 20 41 |ND A>C A|ND A>D A|
|00000490| 4e 44 20 41 3e 45 20 41 | 4e 44 20 41 3e 46 20 54 |ND A>E A|ND A>F T|
|000004a0| 48 45 4e 20 4e 3d 41 3a | 20 47 4f 54 4f 20 33 34 |HEN N=A:| GOTO 34|
|000004b0| 30 0a 32 39 30 20 49 46 | 20 42 3e 41 20 41 4e 44 |0.290 IF| B>A AND|
|000004c0| 20 42 3e 43 20 41 4e 44 | 20 42 3e 44 20 41 4e 44 | B>C AND| B>D AND|
|000004d0| 20 42 3e 45 20 41 4e 44 | 20 42 3e 46 20 54 48 45 | B>E AND| B>F THE|
|000004e0| 4e 20 4e 3d 42 3a 20 47 | 4f 54 4f 20 33 34 30 0a |N N=B: G|OTO 340.|
|000004f0| 33 30 30 20 49 46 20 43 | 3e 41 20 41 4e 44 20 43 |300 IF C|>A AND C|
|00000500| 3e 42 20 41 4e 44 20 43 | 3e 44 20 41 4e 44 20 43 |>B AND C|>D AND C|
|00000510| 3e 45 20 41 4e 44 20 43 | 3e 46 20 54 48 45 4e 20 |>E AND C|>F THEN |
|00000520| 4e 3d 43 3a 20 47 4f 54 | 4f 20 33 34 30 0a 33 31 |N=C: GOT|O 340.31|
|00000530| 30 20 49 46 20 44 3e 41 | 20 41 4e 44 20 44 3e 42 |0 IF D>A| AND D>B|
|00000540| 20 41 4e 44 20 44 3e 43 | 20 41 4e 44 20 44 3e 45 | AND D>C| AND D>E|
|00000550| 20 41 4e 44 20 44 3e 46 | 20 54 48 45 4e 20 4e 3d | AND D>F| THEN N=|
|00000560| 44 3a 20 47 4f 54 4f 20 | 33 34 30 0a 32 33 36 38 |D: GOTO |340.2368|
|00000570| 20 0a 33 33 30 20 4e 3d | 46 0a 33 34 30 20 49 46 | .330 N=|F.340 IF|
|00000580| 20 4e 3e 3d 31 20 41 4e | 44 20 4e 3c 35 20 54 48 | N>=1 AN|D N<5 TH|
|00000590| 45 4e 20 4e 3d 35 3a 20 | 47 4f 54 4f 20 34 31 30 |EN N=5: |GOTO 410|
|000005a0| 0a 33 35 30 20 49 46 20 | 4e 3e 3d 35 20 41 4e 44 |.350 IF |N>=5 AND|
|000005b0| 20 4e 3c 31 30 20 54 48 | 45 4e 20 4e 3d 31 30 3a | N<10 TH|EN N=10:|
|000005c0| 20 47 4f 54 4f 20 34 31 | 30 0a 33 36 30 20 49 46 | GOTO 41|0.360 IF|
|000005d0| 20 4e 3e 3d 31 30 20 41 | 4e 44 20 4e 3c 32 30 20 | N>=10 A|ND N<20 |
|000005e0| 54 48 45 4e 20 4e 3d 32 | 30 3a 20 47 4f 54 4f 20 |THEN N=2|0: GOTO |
|000005f0| 34 31 30 0a 33 37 30 20 | 49 46 20 4e 3e 3d 32 30 |410.370 |IF N>=20|
|00000600| 20 41 4e 44 20 4e 3c 35 | 30 20 54 48 45 4e 20 4e | AND N<5|0 THEN N|
|00000610| 3d 35 30 3a 20 47 4f 54 | 4f 20 34 31 30 0a 33 38 |=50: GOT|O 410.38|
|00000620| 30 20 49 46 20 4e 3e 3d | 35 30 20 41 4e 44 20 4e |0 IF N>=|50 AND N|
|00000630| 3c 31 30 30 20 54 48 45 | 4e 20 4e 3d 31 30 30 3a |<100 THE|N N=100:|
|00000640| 47 4f 54 4f 20 34 31 30 | 0a 33 39 30 20 49 46 20 |GOTO 410|.390 IF |
|00000650| 4e 3e 3d 31 30 30 20 41 | 4e 44 20 4e 3c 35 30 30 |N>=100 A|ND N<500|
|00000660| 20 54 48 45 4e 20 4e 3d | 35 30 30 3a 47 4f 54 4f | THEN N=|500:GOTO|
|00000670| 34 31 30 0a 34 30 30 20 | 49 46 20 4e 3e 3d 35 30 |410.400 |IF N>=50|
|00000680| 30 20 41 4e 44 20 4e 3c | 31 30 30 30 20 54 48 45 |0 AND N<|1000 THE|
|00000690| 4e 20 4e 3d 31 30 30 30 | 0a 34 31 30 20 50 52 49 |N N=1000|.410 PRI|
|000006a0| 4e 54 22 93 9e 22 3a 50 | 52 49 4e 54 22 30 22 3b |NT"..":P|RINT"0";|
|000006b0| 3a 50 52 49 4e 54 54 41 | 42 28 35 29 3b 4e 2f 35 |:PRINTTA|B(5);N/5|
|000006c0| 3b 3a 50 52 49 4e 54 54 | 41 42 28 31 31 29 3b 32 |;:PRINTT|AB(11);2|
|000006d0| 2a 4e 2f 35 3b 0a 34 31 | 35 20 50 52 49 4e 54 20 |*N/5;.41|5 PRINT |
|000006e0| 54 41 42 28 31 37 29 3b | 33 2a 4e 2f 35 3b 0a 34 |TAB(17);|3*N/5;.4|
|000006f0| 32 30 20 50 52 49 4e 54 | 20 54 41 42 28 32 33 29 |20 PRINT| TAB(23)|
|00000700| 3b 34 2a 4e 2f 35 3b 3a | 50 52 49 4e 54 54 41 42 |;4*N/5;:|PRINTTAB|
|00000710| 28 32 39 29 4e 0a 34 33 | 30 20 50 52 49 4e 54 22 |(29)N.43|0 PRINT"|
|00000720| 90 b0 c0 c0 c0 c0 c0 b2 | c0 c0 c0 c0 c0 b2 c0 c0 |........|........|
|00000730| c0 c0 c0 b2 c0 c0 c0 c0 | c0 b2 c0 c0 c0 c0 c0 ae |........|........|
|00000740| 00 0a 34 34 30 20 50 52 | 49 4e 54 22 dd 22 3b 41 |..440 PR|INT".";A|
|00000750| 24 0a 34 35 30 20 50 52 | 49 4e 54 22 dd 22 3b 3a |$.450 PR|INT".";:|
|00000760| 46 4f 52 20 4d 3d 31 20 | 54 4f 20 33 30 2a 41 2f |FOR M=1 |TO 30*A/|
|00000770| 4e 3a 50 52 49 4e 54 22 | 1c 12 20 90 22 3b 3a 4e |N:PRINT"|.. .";:N|
|00000780| 45 58 54 20 4d 20 3a 50 | 52 49 4e 54 0a 34 36 30 |EXT M :P|RINT.460|
|00000790| 20 49 46 20 5a 3d 31 20 | 54 48 45 4e 20 36 36 30 | IF Z=1 |THEN 660|
|000007a0| 0a 34 37 30 20 50 52 49 | 4e 54 22 ab c0 c0 c0 c0 |.470 PRI|NT".....|
|000007b0| c0 db c0 c0 c0 c0 c0 db | c0 c0 c0 c0 c0 db c0 c0 |........|........|
|000007c0| c0 c0 c0 db c0 c0 c0 c0 | c0 b3 00 0a 34 38 30 20 |........|....480 |
|000007d0| 50 52 49 4e 54 09 0a 34 | 39 30 20 50 52 49 4e 54 |PRINT..4|90 PRINT|
|000007e0| 22 dd 22 3b 3a 46 4f 52 | 20 51 3d 31 20 54 4f 20 |".";:FOR| Q=1 TO |
|000007f0| 33 30 2a 42 2f 4e 3a 50 | 52 49 4e 54 22 9f 12 20 |30*B/N:P|RINT".. |
|00000800| 90 22 3b 3a 4e 45 58 54 | 20 51 3a 50 52 49 4e 54 |.";:NEXT| Q:PRINT|
|00000810| 0a 35 30 30 20 49 46 20 | 5a 3d 32 20 54 48 45 4e |.500 IF |Z=2 THEN|
|00000820| 20 36 36 30 0a 35 31 30 | 20 50 52 49 4e 54 22 ab | 660.510| PRINT".|
|00000830| c0 c0 c0 c0 c0 db c0 c0 | c0 c0 c0 db c0 c0 c0 c0 |........|........|
|00000840| c0 db c0 c0 c0 c0 c0 db | c0 c0 c0 c0 c0 b3 00 0a |........|........|
|00000850| 35 32 30 20 50 52 49 4e | 54 22 dd 22 3b 43 24 0a |520 PRIN|T".";C$.|
|00000860| 35 33 30 20 50 52 49 4e | 54 22 dd 22 3b 3a 46 4f |530 PRIN|T".";:FO|
|00000870| 52 20 4f 3d 31 20 54 4f | 20 33 30 2a 43 2f 4e 3a |R O=1 TO| 30*C/N:|
|00000880| 50 52 49 4e 54 22 9c 12 | 20 90 22 3b 3a 4e 45 58 |PRINT"..| .";:NEX|
|00000890| 54 20 4f 20 3a 50 52 49 | 4e 54 0a 35 34 30 20 49 |T O :PRI|NT.540 I|
|000008a0| 46 20 5a 3d 33 20 54 48 | 45 4e 20 36 36 30 0a 35 |F Z=3 TH|EN 660.5|
|000008b0| 35 30 20 50 52 49 4e 54 | 22 ab c0 c0 c0 c0 c0 db |50 PRINT|".......|
|000008c0| c0 c0 c0 c0 c0 db c0 c0 | c0 c0 c0 db c0 c0 c0 c0 |........|........|
|000008d0| c0 db c0 c0 c0 c0 c0 b3 | 00 0a 35 36 30 20 50 52 |........|..560 PR|
|000008e0| 49 4e 54 22 dd 22 3b 44 | 24 0a 35 37 30 20 50 52 |INT".";D|$.570 PR|
|000008f0| 49 4e 54 22 dd 22 3b 3a | 46 4f 52 20 50 3d 31 20 |INT".";:|FOR P=1 |
|00000900| 54 4f 20 33 30 2a 44 2f | 4e 3a 50 52 49 4e 54 22 |TO 30*D/|N:PRINT"|
|00000910| 1e 12 20 90 22 3b 3a 4e | 45 58 54 20 50 3a 50 52 |.. .";:N|EXT P:PR|
|00000920| 49 4e 54 0a 35 38 30 20 | 49 46 20 5a 3d 34 20 54 |INT.580 |IF Z=4 T|
|00000930| 48 45 4e 20 36 36 30 0a | 35 39 30 20 50 52 49 4e |HEN 660.|590 PRIN|
|00000940| 54 22 ab c0 c0 c0 c0 c0 | db c0 c0 c0 c0 c0 db c0 |T"......|........|
|00000950| c0 c0 c0 c0 db c0 c0 c0 | c0 c0 db c0 c0 c0 c0 c0 |........|........|
|00000960| b3 00 0a 36 30 30 20 50 | 52 49 4e 54 22 dd 22 3b |...600 P|RINT".";|
|00000970| 45 24 0a 36 31 30 20 50 | 52 49 4e 54 22 dd 22 3b |E$.610 P|RINT".";|
|00000980| 3a 46 4f 52 20 52 3d 31 | 20 54 4f 20 33 30 2a 45 |:FOR R=1| TO 30*E|
|00000990| 2f 4e 3a 50 52 49 4e 54 | 22 1f 12 20 90 22 3b 3a |/N:PRINT|".. .";:|
|000009a0| 4e 45 58 54 20 52 20 3a | 50 52 49 4e 54 0a 36 32 |NEXT R :|PRINT.62|
|000009b0| 30 20 49 46 20 5a 3d 35 | 20 54 48 45 4e 20 36 36 |0 IF Z=5| THEN 66|
|000009c0| 30 0a 36 33 30 20 50 52 | 49 4e 54 22 ab c0 c0 c0 |0.630 PR|INT"....|
|000009d0| c0 c0 db c0 c0 c0 c0 c0 | db c0 c0 c0 c0 c0 db c0 |........|........|
|000009e0| c0 c0 c0 c0 db c0 c0 c0 | c0 c0 b3 00 0a 36 34 30 |........|.....640|
|000009f0| 20 50 52 49 4e 54 22 dd | 22 3b 46 24 0a 36 35 30 | PRINT".|";F$.650|
|00000a00| 20 50 52 49 4e 54 22 dd | 22 3b 3a 46 4f 52 20 53 | PRINT".|";:FOR S|
|00000a10| 3d 31 20 54 4f 20 33 30 | 2a 46 2f 4e 3a 50 52 49 |=1 TO 30|*F/N:PRI|
|00000a20| 4e 54 22 95 12 20 90 22 | 3b 3a 4e 45 58 54 20 53 |NT".. ."|;:NEXT S|
|00000a30| 20 3a 50 52 49 4e 54 0a | 36 36 30 20 50 52 49 4e | :PRINT.|660 PRIN|
|00000a40| 54 20 20 20 20 20 20 22 | ad c0 c0 c0 c0 c0 db c0 |T      "|........|
|00000a50| c0 c0 c0 c0 db c0 c0 c0 | c0 c0 db c0 c0 c0 c0 c0 |........|........|
|00000a60| db c0 09 00 c0 c0 bd 00 | 0a 36 37 30 20 47 4f 54 |........|.670 GOT|
|00000a70| 4f 36 37 30 0a 37 30 30 | 20 52 45 4d 20 20 20 2a |O670.700| REM   *|
|00000a80| 2a 2a 20 54 49 54 4c 45 | 20 53 43 52 45 45 4e 20 |** TITLE| SCREEN |
|00000a90| 2a 2a 2a 0a 37 31 30 20 | 50 52 49 4e 54 22 93 11 |***.710 |PRINT"..|
|00000aa0| 1d 9c 22 3b 3a 50 4f 4b | 45 20 35 33 32 38 30 2c |..";:POK|E 53280,|
|00000ab0| 31 35 3a 50 4f 4b 45 20 | 35 33 32 38 31 2c 31 35 |15:POKE |53281,15|
|00000ac0| 0a 37 32 30 20 46 4f 52 | 20 49 3d 31 20 54 4f 20 |.720 FOR| I=1 TO |
|00000ad0| 33 38 3a 50 52 49 4e 54 | 22 d6 22 3b 3a 4e 45 58 |38:PRINT|".";:NEX|
|00000ae0| 54 0a 37 33 30 20 46 4f | 52 20 49 3d 31 20 54 4f |T.730 FO|R I=1 TO|
|00000af0| 20 32 32 3a 50 52 49 4e | 54 22 11 9d d6 22 3b 3a | 22:PRIN|T"...";:|
|00000b00| 4e 45 58 54 0a 37 34 30 | 20 46 4f 52 20 49 3d 31 |NEXT.740| FOR I=1|
|00000b10| 20 54 4f 20 33 37 3a 50 | 52 49 4e 54 22 9d 9d d6 | TO 37:P|RINT"...|
|00000b20| 22 3b 3a 4e 45 58 54 0a | 37 35 30 20 46 4f 52 20 |";:NEXT.|750 FOR |
|00000b30| 49 3d 31 20 54 4f 20 32 | 32 3a 50 52 49 4e 54 22 |I=1 TO 2|2:PRINT"|
|00000b40| 91 9d d6 22 3b 3a 4e 45 | 58 54 0a 37 36 30 20 50 |...";:NE|XT.760 P|
|00000b50| 52 49 4e 54 22 13 22 0a | 37 37 30 20 50 52 49 4e |RINT".".|770 PRIN|
|00000b60| 54 20 53 50 43 28 31 35 | 29 22 11 11 11 11 11 42 |T SPC(15|)".....B|
|00000b70| 41 52 20 47 52 41 50 48 | 00 0a 37 38 30 20 50 52 |AR GRAPH|..780 PR|
|00000b80| 49 4e 54 20 53 50 43 28 | 31 35 29 22 a3 a3 a3 a3 |INT SPC(|15)"....|
|00000b90| a3 a3 a3 a3 a3 00 0a 37 | 39 30 20 50 52 49 4e 54 |.......7|90 PRINT|
|00000ba0| 20 53 50 43 28 31 39 29 | 22 11 11 11 42 59 00 0a | SPC(19)|"...BY..|
|00000bb0| 38 30 30 20 50 52 49 4e | 54 20 53 50 43 28 31 34 |800 PRIN|T SPC(14|
|00000bc0| 29 22 11 11 4d 20 43 20 | 48 4f 46 48 45 49 4e 5a |)"..M C |HOFHEINZ|
|00000bd0| 00 0a 38 31 30 20 46 4f | 52 20 54 3d 31 20 54 4f |..810 FO|R T=1 TO|
|00000be0| 20 33 30 30 30 3a 4e 45 | 58 54 0a 38 32 30 20 47 | 3000:NE|XT.820 G|
|00000bf0| 4f 20 54 4f 20 31 30 0a |                         |O TO 10.|        |
+--------+-------------------------+-------------------------+--------+--------+