summaryrefslogtreecommitdiff
path: root/v1.25/bin/SAMPLES.BAS
blob: 2d2b2aa5476fd13a31d536e89d2968174a3e9a30 (plain) (blame)
ofshex dumpascii
0000 ff ba 0c 0a 00 8f 20 54 68 65 20 49 42 4d 20 50 65 72 73 6f 6e 61 6c 20 43 6f 6d 70 75 74 65 72 .......The.IBM.Personal.Computer
0020 20 53 61 6d 70 6c 65 73 00 ee 0c 14 00 8f 20 56 65 72 73 69 6f 6e 20 31 2e 31 30 20 28 43 29 43 .Samples.......Version.1.10.(C)C
0040 6f 70 79 72 69 67 68 74 20 49 42 4d 20 43 6f 72 70 20 31 39 38 31 2c 20 31 39 38 32 00 20 0d 1e opyright.IBM.Corp.1981,.1982....
0060 00 8f 20 4c 69 63 65 6e 73 65 64 20 4d 61 74 65 72 69 61 6c 20 2d 20 50 72 6f 67 72 61 6d 20 50 ...Licensed.Material.-.Program.P
0080 72 6f 70 65 72 74 79 20 6f 66 20 49 42 4d 00 4d 0d 32 00 c9 20 dd 3a c8 20 11 2c 12 3a bf 20 0f roperty.of.IBM.M.2....:...,.:...
00a0 0f 2c 11 2c 11 3a a0 20 0f 28 3a c0 3a ca 20 16 2c 0f 13 3a 91 20 22 49 42 4d 22 00 70 0d 3c 00 .,.,.:...(:.:...,..:.."IBM".p.<.
00c0 ca 20 18 2c 0f 0c 2c 11 3a 91 20 22 50 65 72 73 6f 6e 61 6c 20 43 6f 6d 70 75 74 65 72 22 00 9d ...,..,.:.."Personal.Computer"..
00e0 0d 46 00 bf 20 0f 0a 2c 11 3a ca 20 0f 0a 2c 1a 2c 11 3a 91 20 ff 96 28 0f d5 29 e9 d6 28 0f 15 .F.....,.:....,.,.:....(..)..(..
0100 2c 0f cd 29 e9 ff 96 28 0f b8 29 00 d2 0d 50 00 ca 20 0f 0b 2c 1a 2c 11 3a 91 20 ff 96 28 0f b3 ,..)...(..)...P.....,.,.:....(..
0120 29 e9 22 20 20 20 20 20 20 20 53 41 4d 50 4c 45 53 20 20 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 ).".......SAMPLES......."...(..)
0140 00 f8 0d 5a 00 ca 20 0f 0c 2c 1a 2c 11 3a 91 20 ff 96 28 0f b3 29 e9 d6 28 0f 15 2c 0f 20 29 e9 ...Z.....,.,.:....(..)..(..,..).
0160 ff 96 28 0f b3 29 00 2d 0e 64 00 ca 20 0f 0d 2c 1a 2c 11 3a 91 20 ff 96 28 0f b3 29 e9 22 20 20 ..(..).-.d.....,.,.:....(..)."..
0180 20 20 56 65 72 73 69 6f 6e 20 31 2e 31 30 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 53 0e 6e 00 ..Version.1.10....."...(..).S.n.
01a0 ca 20 0f 0e 2c 1a 2c 11 3a 91 20 ff 96 28 0f d4 29 e9 d6 28 0f 15 2c 0f cd 29 e9 ff 96 28 0f be ....,.,.:....(..)..(..,..)...(..
01c0 29 00 8d 0e 78 00 bf 20 0f 0f 2c 11 3a ca 20 0f 11 2c 15 2c 11 3a 91 20 22 28 43 29 20 43 6f 70 )...x.....,.:....,.,.:.."(C).Cop
01e0 79 72 69 67 68 74 20 49 42 4d 20 43 6f 72 70 20 31 39 38 31 2c 20 31 39 38 32 22 00 c1 0e 82 00 yright.IBM.Corp.1981,.1982".....
0200 bf 20 0f 0e 2c 11 3a ca 20 0f 17 2c 18 2c 11 3a 91 20 22 50 72 65 73 73 20 73 70 61 63 65 20 62 ....,.:....,.,.:.."Press.space.b
0220 61 72 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 00 e1 0e 8c 00 98 20 0f 6a 2c 11 20 3a 8f d9 43 4c ar.to.continue"........j,..:..CL
0240 45 41 52 20 4b 59 42 44 20 42 55 46 46 45 52 00 ee 0e 96 00 43 4d 44 24 20 e7 20 de 00 04 0f a0 EAR.KYBD.BUFFER.....CMD$........
0260 00 8b 20 43 4d 44 24 e7 22 22 20 cd 20 89 20 0e 96 00 00 20 0f aa 00 8b 20 43 4d 44 24 20 e7 20 ...CMD$.""...............CMD$...
0280 ff 96 28 0f 1b 29 20 cd 20 89 20 0e 68 01 00 39 0f b4 00 8b 20 43 4d 44 24 20 e7 20 22 20 22 20 ..(..)......h..9.....CMD$...".".
02a0 cd 20 89 20 0e c8 00 00 43 0f be 00 89 20 0e 8c 00 00 72 0f c8 00 c8 20 11 2c 12 3a bf 20 0f 0f ........C.........r......,.:....
02c0 2c 11 2c 11 3a c0 3a ca 20 16 2c 14 3a 91 20 22 53 41 4d 50 4c 45 20 50 52 4f 47 52 41 4d 53 22 ,.,.:.:...,.:.."SAMPLE.PROGRAMS"
02e0 00 96 0f d2 00 ca 20 18 2c 14 2c 11 3a 91 20 20 22 41 20 2d 20 4d 55 53 49 43 20 20 20 20 28 34 ........,.,.:..."A.-.MUSIC....(4
0300 38 6b 29 22 00 c9 0f dc 00 ca 20 19 2c 14 2c 11 3a 91 20 20 22 42 20 2d 20 41 52 54 20 20 20 20 8k)"........,.,.:..."B.-.ART....
0320 20 20 28 33 32 6b 2d 43 6f 6c 6f 72 2f 47 72 61 70 68 69 63 73 29 22 00 ed 0f e6 00 ca 20 1a 2c ..(32k-Color/Graphics)"........,
0340 14 2c 11 3a 91 20 20 22 43 20 2d 20 4d 4f 52 54 47 41 47 45 20 28 34 38 6b 29 22 00 23 10 f0 00 .,.:..."C.-.MORTGAGE.(48k)".#...
0360 ca 20 0f 0a 2c 14 2c 11 3a 91 20 22 44 20 2d 20 43 49 52 43 4c 45 20 20 20 28 42 41 53 49 43 41 ....,.,.:.."D.-.CIRCLE...(BASICA
0380 2d 43 6f 6c 6f 72 2f 47 72 61 70 68 69 63 73 29 22 00 59 10 fa 00 ca 20 0f 0b 2c 14 2c 11 3a 91 -Color/Graphics)".Y.......,.,.:.
03a0 20 22 45 20 2d 20 44 4f 4e 4b 45 59 20 20 20 28 42 41 53 49 43 41 2d 43 6f 6c 6f 72 2f 47 72 61 ."E.-.DONKEY...(BASICA-Color/Gra
03c0 70 68 69 63 73 29 22 00 8f 10 fb 00 ca 20 0f 0c 2c 14 2c 11 3a 91 20 22 46 20 2d 20 50 49 45 43 phics)".........,.,.:.."F.-.PIEC
03e0 48 41 52 54 20 28 42 41 53 49 43 41 2d 43 6f 6c 6f 72 2f 47 72 61 70 68 69 63 73 29 22 00 c5 10 HART.(BASICA-Color/Graphics)"...
0400 fc 00 ca 20 0f 0d 2c 14 2c 11 3a 91 20 22 47 20 2d 20 42 41 4c 4c 20 20 20 20 20 28 42 41 53 49 ......,.,.:.."G.-.BALL.....(BASI
0420 43 41 2d 43 6f 6c 6f 72 2f 47 72 61 70 68 69 63 73 29 22 00 e9 10 fd 00 ca 20 0f 0e 2c 14 2c 11 CA-Color/Graphics)".........,.,.
0440 3a 91 20 22 48 20 2d 20 43 4f 4c 4f 52 42 41 52 20 28 33 32 6b 29 22 00 0d 11 fe 00 ca 20 0f 0f :.."H.-.COLORBAR.(32k)".........
0460 2c 14 2c 11 3a 91 20 22 49 20 2d 20 43 41 4c 45 4e 44 41 52 20 28 33 32 6b 29 22 00 43 11 ff 00 ,.,.:.."I.-.CALENDAR.(32k)".C...
0480 ca 20 0f 10 2c 14 2c 11 3a 91 20 22 4a 20 2d 20 53 50 41 43 45 20 20 20 20 28 42 41 53 49 43 41 ....,.,.:.."J.-.SPACE....(BASICA
04a0 2d 43 6f 6c 6f 72 2f 47 72 61 70 68 69 63 73 29 22 00 63 11 00 01 ca 20 0f 11 2c 14 2c 11 3a 91 -Color/Graphics)".c.......,.,.:.
04c0 20 22 45 53 43 20 4b 45 59 20 2d 20 45 58 49 54 22 00 8c 11 04 01 ca 20 0f 13 2c 14 2c 11 3a 91 ."ESC.KEY.-.EXIT".........,.,.:.
04e0 20 22 45 4e 54 45 52 20 4c 45 54 54 45 52 20 4f 46 20 50 52 4f 47 52 41 4d 22 00 bd 11 06 01 ca ."ENTER.LETTER.OF.PROGRAM"......
0500 20 0f 15 2c 14 2c 11 3a 91 20 22 4e 4f 54 45 3a 20 41 6c 6c 20 6f 66 20 74 68 65 20 61 62 6f 76 ...,.,.:.."NOTE:.All.of.the.abov
0520 65 20 70 72 6f 67 72 61 6d 73 22 00 f0 11 07 01 ca 20 0f 16 2c 14 2c 11 3a 91 20 22 20 20 20 20 e.programs".........,.,.:.."....
0540 20 20 72 65 71 75 69 72 65 20 34 38 6b 20 69 66 20 75 73 69 6e 67 20 42 41 53 49 43 41 22 00 10 ..require.48k.if.using.BASICA"..
0560 12 0e 01 98 20 0f 6a 2c 11 20 3a 8f d9 43 4c 45 41 52 20 4b 59 42 44 20 42 55 46 46 45 52 00 2e ......j,..:..CLEAR.KYBD.BUFFER..
0580 12 10 01 4b 24 20 e7 20 de 3a 8b 20 4b 24 20 e8 e6 20 22 22 20 cd 20 89 20 0e 0e 01 00 4b 12 13 ...K$....:..K$...."".........K..
05a0 01 4b 24 20 e7 20 de 3a 8b 20 4b 24 20 e7 20 22 22 20 cd 20 89 20 0e 13 01 00 73 12 18 01 8b 20 .K$....:..K$..."".........s.....
05c0 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 41 22 20 cd 20 fe 8c 20 22 4d 55 53 49 43 22 2c 1c e8 ..(K$,.,.)..."A"......"MUSIC",..
05e0 03 00 99 12 22 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 42 22 20 cd 20 fe 8c 20 22 41 ....".....(K$,.,.)..."B"......"A
0600 52 54 22 2c 1c e8 03 00 c4 12 2c 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 43 22 20 cd RT",......,.....(K$,.,.)..."C"..
0620 20 fe 8c 20 22 4d 4f 52 54 47 41 47 45 22 2c 1c e8 03 00 ed 12 36 01 8b 20 ff 83 28 4b 24 2c 12 ...."MORTGAGE",......6.....(K$,.
0640 2c 12 29 20 e7 20 22 44 22 20 cd 20 fe 8c 20 22 43 49 52 43 4c 45 22 2c 1c e8 03 00 16 13 37 01 ,.)..."D"......"CIRCLE",......7.
0660 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 45 22 20 cd 20 fe 8c 20 22 44 4f 4e 4b 45 59 22 ....(K$,.,.)..."E"......"DONKEY"
0680 2c 1c e8 03 00 41 13 38 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 46 22 20 cd 20 fe 8c ,....A.8.....(K$,.,.)..."F".....
06a0 20 22 50 49 45 43 48 41 52 54 22 2c 1c e8 03 00 68 13 39 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 ."PIECHART",....h.9.....(K$,.,.)
06c0 20 e7 20 22 47 22 20 cd 20 fe 8c 20 22 42 41 4c 4c 22 2c 1c e8 03 00 93 13 3a 01 8b 20 ff 83 28 ..."G"......"BALL",......:.....(
06e0 4b 24 2c 12 2c 12 29 20 e7 20 22 48 22 20 cd 20 fe 8c 20 22 43 4f 4c 4f 52 42 41 52 22 2c 1c e8 K$,.,.)..."H"......"COLORBAR",..
0700 03 00 be 13 3b 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 49 22 20 cd 20 fe 8c 20 22 43 ....;.....(K$,.,.)..."I"......"C
0720 41 4c 45 4e 44 41 52 22 2c 1c e8 03 00 e6 13 3c 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 ALENDAR",......<.....(K$,.,.)...
0740 22 4a 22 20 cd 20 fe 8c 20 22 53 50 41 43 45 22 2c 1c e8 03 00 0e 14 3e 01 8b 20 ff 83 28 4b 24 "J"......"SPACE",......>.....(K$
0760 2c 12 2c 12 29 20 e7 20 22 61 22 20 cd 20 fe 8c 20 22 4d 55 53 49 43 22 2c 1c e8 03 00 34 14 3f ,.,.)..."a"......"MUSIC",....4.?
0780 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 62 22 20 cd 20 fe 8c 20 22 41 52 54 22 2c 1c .....(K$,.,.)..."b"......"ART",.
07a0 e8 03 00 5f 14 40 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 63 22 20 cd 20 fe 8c 20 22 ..._.@.....(K$,.,.)..."c"......"
07c0 4d 4f 52 54 47 41 47 45 22 2c 1c e8 03 00 88 14 41 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 MORTGAGE",......A.....(K$,.,.)..
07e0 20 22 64 22 20 cd 20 fe 8c 20 22 43 49 52 43 4c 45 22 2c 1c e8 03 00 b1 14 42 01 8b 20 ff 83 28 ."d"......"CIRCLE",......B.....(
0800 4b 24 2c 12 2c 12 29 20 e7 20 22 65 22 20 cd 20 fe 8c 20 22 44 4f 4e 4b 45 59 22 2c 1c e8 03 00 K$,.,.)..."e"......"DONKEY",....
0820 dc 14 43 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 66 22 20 cd 20 fe 8c 20 22 50 49 45 ..C.....(K$,.,.)..."f"......"PIE
0840 43 48 41 52 54 22 2c 1c e8 03 00 03 15 44 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 67 CHART",......D.....(K$,.,.)..."g
0860 22 20 cd 20 fe 8c 20 22 42 41 4c 4c 22 2c 1c e8 03 00 2e 15 45 01 8b 20 ff 83 28 4b 24 2c 12 2c "......"BALL",......E.....(K$,.,
0880 12 29 20 e7 20 22 68 22 20 cd 20 fe 8c 20 22 43 4f 4c 4f 52 42 41 52 22 2c 1c e8 03 00 59 15 46 .)..."h"......"COLORBAR",....Y.F
08a0 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 69 22 20 cd 20 fe 8c 20 22 43 41 4c 45 4e 44 .....(K$,.,.)..."i"......"CALEND
08c0 41 52 22 2c 1c e8 03 00 81 15 47 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 6a 22 20 cd AR",......G.....(K$,.,.)..."j"..
08e0 20 fe 8c 20 22 53 50 41 43 45 22 2c 1c e8 03 00 a3 15 54 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 ...."SPACE",......T.....(K$,.,.)
0900 20 e7 20 ff 96 28 0f 1b 29 20 cd 20 89 20 0e 68 01 00 ad 15 5e 01 89 20 0e c8 00 00 c1 15 68 01 .....(..)......h....^.........h.
0920 c8 20 11 2c 12 3a bf 20 18 2c 11 3a c0 3a 81 00 cb 15 e8 03 89 20 0e c8 00 00 00 00 1a 1a 4e 44 ...,.:...,.:.:................ND
0940 41 52 22 2c 1c e8 03 00 81 15 47 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 20 e7 20 22 6a 22 20 cd AR",......G.....(K$,.,.)..."j"..
0960 20 fe 8c 20 22 53 50 41 43 45 22 2c 1c e8 03 00 a3 15 54 01 8b 20 ff 83 28 4b 24 2c 12 2c 12 29 ...."SPACE",......T.....(K$,.,.)