BASIC 9.2

FILE INFORMATION

FILENAME(S): BASIC 9.2

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 21:28:26

APPEARS ON: 1 disk(s)

FILE HASH

9aaa1bb02f06a1155fe86be3c9436d93c63dfbc69ad9eaf23984273be645cb17

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
1541TEST DEMO	BASIC 9.2	PRG	DuncanTwain	9	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 13 08 01 00 8F 20  2B 2B 2B 20 39 2E 32 20  |....... +++ 9.2 |
00000010: 2B 2B 2B 00 25 08 64 00  41 B2 31 39 38 3A 99 C7  |+++.%.d.A.198:..|
00000020: 28 31 34 32 29 00 3A 08  6E 00 97 35 33 32 38 31  |(142).:.n..53281|
00000030: 2C 31 34 3A 97 36 34 36  2C 36 00 4C 08 78 00 5A  |,14:.646,6.L.x.Z|
00000040: 24 B2 C7 28 33 34 29 3A  89 31 37 30 00 7E 08 82  |$..(34):.170.~..|
00000050: 00 99 22 93 22 3B 3A 81  49 B2 31 A4 33 39 3A 99  |..".";:.I.1.39:.|
00000060: 43 24 3B 3A 82 3A 81 49  B2 31 A4 32 32 3A 99 22  |C$;:.:.I.1.22:."|
00000070: 9D 11 22 43 24 3B 3A 82  3A 99 22 9D 22 3B 00 9B  |.."C$;:.:.".";..|
00000080: 08 8C 00 81 49 B2 31 A4  33 38 3A 99 22 9D 22 43  |....I.1.38:."."C|
00000090: 24 22 9D 22 3B 3A 82 3A  99 43 24 00 B6 08 96 00  |$".";:.:.C$.....|
000000A0: 81 49 B2 31 A4 32 33 3A  99 22 91 22 43 24 22 9D  |.I.1.23:."."C$".|
000000B0: 22 3B 3A 82 3A 8E 00 CD  08 A0 00 97 41 2C 30 3A  |";:.:.......A,0:|
000000C0: 92 41 2C 32 35 35 3A 97  41 2C 30 3A 8E 00 FC 08  |.A,255:.A,0:....|
000000D0: AA 00 99 22 93 11 22 A3  33 29 22 47 45 4D 49 44  |..."..".3)"GEMID|
000000E0: 44 45 4C 44 45 20 45 4E  20 53 54 41 4E 44 41 41  |DELDE EN STANDAA|
000000F0: 52 44 20 41 46 57 49 4A  4B 49 4E 47 00 29 09 B4  |RD AFWIJKING.)..|
00000100: 00 99 22 11 44 49 54 20  50 52 4F 47 52 41 4D 4D  |..".DIT PROGRAMM|
00000110: 41 20 5A 41 4C 20 56 41  4E 20 45 45 4E 20 48 4F  |A ZAL VAN EEN HO|
00000120: 45 56 45 45 4C 48 45 49  44 00 57 09 BE 00 99 22  |EVEELHEID.W...."|
00000130: 47 45 54 41 4C 4C 45 4E  20 48 45 54 20 47 45 4D  |GETALLEN HET GEM|
00000140: 49 44 44 45 4C 44 45 20  45 4E 20 44 45 20 53 54  |IDDELDE EN DE ST|
00000150: 41 4E 44 41 41 52 44 00  78 09 C8 00 99 22 41 46  |ANDAARD.x...."AF|
00000160: 57 49 4A 4B 49 4E 47 20  42 45 52 45 4B 45 4E 45  |WIJKING BEREKENE|
00000170: 4E 2E 22 3A 8D 31 36 30  00 B9 09 D2 00 99 22 93  |N.":.160......".|
00000180: 11 22 A3 35 29 22 47 45  4D 49 44 44 45 4C 44 45  |.".5)"GEMIDDELDE|
00000190: 20 45 4E 20 53 54 41 4E  44 41 41 52 44 20 41 46  | EN STANDAARD AF|
000001A0: 57 49 4A 4B 49 4E 47 22  3A 99 22 11 31 30 20 44  |WIJKING":.".10 D|
000001B0: 49 4D 20 58 28 32 35 30  29 00 F0 09 DC 00 99 22  |IM X(250)......"|
000001C0: 32 30 20 50 52 49 4E 54  20 22 5A 24 22 48 4F 45  |20 PRINT "Z$"HOE|
000001D0: 56 45 45 4C 20 47 45 54  41 4C 4C 45 4E 22 5A 24  |VEEL GETALLEN"Z$|
000001E0: 22 3B 22 3A 99 22 33 30  20 49 4E 50 55 54 20 4E  |";":."30 INPUT N|
000001F0: 00 36 0A E6 00 99 22 34  30 20 50 52 49 4E 54 20  |.6...."40 PRINT |
00000200: 22 5A 24 22 47 45 45 46  20 44 45 20 47 45 54 41  |"Z$"GEEF DE GETA|
00000210: 4C 4C 45 4E 20 45 45 4E  20 56 4F 4F 52 20 45 45  |LLEN EEN VOOR EE|
00000220: 4E 20 28 45 4E 20 44 55  57 20 4F 50 20 52 45 54  |N (EN DUW OP RET|
00000230: 55 52 4E 20 4E 41 00 64  0A F0 00 99 A3 32 30 29  |URN NA.d.....20)|
00000240: 22 91 20 49 45 44 45 52  20 47 45 54 41 4C 29 22  |". IEDER GETAL)"|
00000250: 3A 99 22 35 30 20 46 4F  52 20 49 20 3D 20 31 20  |:."50 FOR I = 1 |
00000260: 54 4F 20 4E 00 83 0A FA  00 99 22 36 30 20 49 4E  |TO N......"60 IN|
00000270: 50 55 54 20 58 28 49 29  22 3A 99 22 37 30 20 4E  |PUT X(I)":."70 N|
00000280: 45 58 54 00 C8 0A 04 01  99 22 38 30 20 4D 20 3D  |EXT......"80 M =|
00000290: 20 30 22 3A 99 22 39 30  20 46 4F 52 20 49 20 3D  | 0":."90 FOR I =|
000002A0: 20 31 20 54 4F 20 4E 22  3A 99 22 31 30 30 20 4D  | 1 TO N":."100 M|
000002B0: 20 3D 20 4D 20 2B 20 58  28 49 29 22 3A 99 22 31  | = M + X(I)":."1|
000002C0: 31 30 20 4E 45 58 54 22  00 19 0B 0E 01 99 22 31  |10 NEXT"......"1|
000002D0: 32 30 20 4D 20 3D 20 4D  2F 4E 22 3A 99 22 31 33  |20 M = M/N":."13|
000002E0: 30 20 53 20 3D 20 30 22  3A 99 22 31 34 30 20 46  |0 S = 0":."140 F|
000002F0: 4F 52 20 49 20 3D 20 31  20 54 4F 20 4E 22 3A 99  |OR I = 1 TO N":.|
00000300: 22 31 35 30 20 53 20 3D  20 53 20 2B 20 28 58 28  |"150 S = S + (X(|
00000310: 49 29 20 2D 20 4D 29 5E  32 00 40 0B 18 01 99 22  |I) - M)^2.@...."|
00000320: 31 36 30 20 4E 45 58 54  22 3A 99 22 31 37 30 20  |160 NEXT":."170 |
00000330: 53 20 3D 20 53 2F 28 4E  20 2D 20 31 29 5E 2E 35  |S = S/(N - 1)^.5|
00000340: 00 68 0B 22 01 99 22 31  38 30 20 50 52 49 4E 54  |.h.".."180 PRINT|
00000350: 20 22 5A 24 22 47 45 4D  49 44 44 45 4C 44 45 20  | "Z$"GEMIDDELDE |
00000360: 49 53 20 22 5A 24 22 4D  00 AA 0B 2C 01 99 22 31  |IS "Z$"M...,.."1|
00000370: 39 30 20 50 52 49 4E 54  20 22 5A 24 22 53 54 41  |90 PRINT "Z$"STA|
00000380: 4E 44 41 41 52 44 20 41  46 57 49 4A 4B 49 4E 47  |NDAARD AFWIJKING|
00000390: 20 49 53 20 22 5A 24 22  53 22 3A 99 22 32 30 30  | IS "Z$"S":."200|
000003A0: 20 45 4E 44 22 3A 8D 31  36 30 00 D5 0B 36 01 99  | END":.160...6..|
000003B0: 22 93 11 44 49 54 20 50  52 4F 47 52 41 4D 4D 41  |"..DIT PROGRAMMA|
000003C0: 20 49 53 20 4F 50 20 44  45 20 41 4E 44 45 52 45  | IS OP DE ANDERE|
000003D0: 20 4B 41 4E 54 00 FB 0B  40 01 99 22 56 41 4E 20  | KANT...@.."VAN |
000003E0: 44 45 5A 45 20 43 41 53  53 45 54 54 45 20 4F 4E  |DEZE CASSETTE ON|
000003F0: 44 45 52 20 44 45 20 4E  41 41 4D 00 0F 0C 4A 01  |DER DE NAAM...J.|
00000400: 99 22 11 27 47 45 4D 49  44 44 45 4C 44 45 27 00  |.".'GEMIDDELDE'.|
00000410: 27 0C 54 01 99 22 11 4F  50 47 45 4E 4F 4D 45 4E  |'.T..".OPGENOMEN|
00000420: 2E 22 3A 8D 31 36 30 00  37 0C 5C 03 43 24 B2 22  |.":.160.7.\.C$."|
00000430: A6 22 3A 8D 31 33 30 00  62 0C 66 03 99 22 13 11  |.":.130.b.f.."..|
00000440: 11 11 11 11 11 1D 1D 1D  1D 1D 1D 1D 45 49 4E 44  |............EIND|
00000450: 45 20 56 41 4E 20 4C 45  53 20 39 20 44 45 45 4C  |E VAN LES 9 DEEL|
00000460: 20 32 00 8A 0C 70 03 99  22 11 11 11 11 1D 1D 1D  | 2...p..".......|
00000470: 1D 1D 1D 1D 56 45 52 56  4F 4C 47 20 57 4F 52 44  |....VERVOLG WORD|
00000480: 54 20 47 45 4C 41 44 45  4E 22 00 9A 0C 7A 03 99  |T GELADEN"...z..|
00000490: 22 11 11 11 11 11 11 11  11 11 00 A5 0C 84 03 97  |"...............|
000004A0: 36 34 36 2C 39 00 00 00  00 4C 22                 |646,9....L"     |

....... +++ 9.2 +++.%.D.A.198:.G(142).:.
N..53281,14:.646,6.L.X.Z$.G(34):.170.~..
..".";:.I.1.39:.C$;:.:.I.1.22:.".."C$;:.
:.".";......I.1.38:."."C$".";:.:.C$.....
.I.1.23:."."C$".";:.:..M. ..A,0:.A,255:.
A,0:......."..".3)"GEMIDDELDE EN STANDAA
RD AFWIJKING.)....".DIT PROGRAMMA ZAL VA
N EEN HOEVEELHEID.W...."GETALLEN HET GEM
IDDELDE EN DE STANDAARD.X.H.."AFWIJKING 
BEREKENEN.":.160...R.."..".5)"GEMIDDELDE
 EN STANDAARD AFWIJKING":.".10 DIM X(250
)......"20 PRINT "Z$"HOEVEEL GETALLEN"Z$
";":."30 INPUT N.6...."40 PRINT "Z$"GEEF
 DE GETALLEN EEN VOOR EEN (EN DUW OP RET
URN NA.D.....20)". IEDER GETAL)":."50 FO
R I = 1 TO N......"60 INPUT X(I)":."70 N
EXT.H...."80 M = 0":."90 FOR I = 1 TO N"
:."100 M = M + X(I)":."110 NEXT"......"1
20 M = M/N":."130 S = 0":."140 FOR I = 1
 TO N":."150 S = S + (X(I) - M)^2.@...."
160 NEXT":."170 S = S/(N - 1)^.5.H.".."1
80 PRINT "Z$"GEMIDDELDE IS "Z$"M...,.."1
90 PRINT "Z$"STANDAARD AFWIJKING IS "Z$"
S":."200 END":.160.U.6.."..DIT PROGRAMMA
 IS OP DE ANDERE KANT...@.."VAN DEZE CAS
SETTE ONDER DE NAAM...J..".'GEMIDDELDE'.
'.T..".OPGENOMEN.":.160.7.\.C$.".":.130.
B.F.."..............EINDE VAN LES 9 DEEL
 2...P.."...........VERVOLG WORDT GELADE
N"...Z.."...............646,9....L"

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL