home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1989
/
06
/
mono.bas
< prev
next >
Wrap
BASIC Source File
|
1989-01-03
|
5KB
|
69 lines
100 REM - BASIC PROGRAM TO CREATE MONO.COM
110 CLS:PRINT "Creating MONO.COM ": OPEN "MONO.COM " AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 50
140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 50 - I ;
150 FOR J = 1 TO 16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
160 CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
170 IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
180 NEXT J
190 READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
200 IF LINECHECK# = LINESUM# THEN GOTO 220
210 LOCATE 4,2: PRINT "Error in line #" ; 260 + 10 * I: GOTO 260
220 NEXT I
230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
250 PRINT: PRINT "MONO.COM created successfully": SYSTEM
260 PRINT: PRINT "MONO.COM is not valid!": END
270 DATA E9, FF, 1, D, 20, 20, 20, D, A, 4D, 4F, 4E, 4F, 20, 31, 2E, 425
280 DATA 30, 20, 28, 63, 29, 20, 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20, 3CE
290 DATA 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 62C
300 DATA 6F, 2E, D, A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, 4B3
310 DATA FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 20, 4D, 65, 66, 5A1
320 DATA 66, 6F, 72, 64, D, A, A, 24, 1A, 0, 0, 0, 0, 0, 0, 0, 20A
330 DATA 0, 0, 0, 1, 9C, 2E, 80, 6, 61, 1, 40, 73, F, 1E, E, 1F, 2C0
340 DATA 80, 3E, 62, 1, 1, 74, 4, FB, E8, 42, 0, 1F, 9D, 2E, FF, 2E, 5D6
350 DATA 59, 1, 50, 9C, 1E, B8, 40, 0, 8E, D8, F6, 6, 17, 0, 8, 74, 551
360 DATA 23, E4, 60, 3C, 32, 75, 1D, 2E, 80, 36, 63, 1, 1, E4, 61, C, 501
370 DATA 80, EB, 0, E6, 61, 24, 7F, EB, 0, E6, 61, 1F, 9D, FA, B0, 20, 80D
380 DATA E6, 20, 58, CF, 1F, 9D, 58, 2E, FF, 2E, 5D, 1, C3, FC, 80, 3E, 777
390 DATA 63, 1, 0, 74, F7, C6, 6, 62, 1, 1, 50, 1E, B8, 40, 0, 8E, 4F3
400 DATA D8, A0, 49, 0, 3C, 3, 76, 4, 3C, 7, 75, 73, 53, 51, 52, 57, 4F2
410 DATA 6, A1, 4A, 0, 8A, E, 84, 0, A, C9, 75, 2, B1, 18, FE, C1, 5DF
420 DATA F6, E1, 8B, C8, 8B, 16, 63, 0, 83, C2, 6, 8B, 3E, 4E, 0, 47, 6D7
430 DATA B8, 0, B0, 81, FA, BA, 3, 74, 3, 5, 0, 8, 8E, D8, 8E, C0, 6D8
440 DATA BB, 7, 70, 90, 90, 8A, 5, 8A, E7, 84, C4, 75, 2, 8A, E3, 24, 7A2
450 DATA 88, A, C4, AA, 47, E2, EE, EB, 21, 8A, 25, 8A, C7, 84, E0, 75, 8FC
460 DATA 2, 8A, C3, 80, E4, 88, A, E0, EC, A8, 1, 75, FB, FA, EC, A8, 9B8
470 DATA 1, 74, FB, 86, C4, AA, FB, 47, E2, DF, 7, 5F, 5A, 59, 5B, 1F, 7FA
480 DATA 58, C6, 6, 62, 1, 0, C3, 53, 79, 6E, 74, 61, 78, 3A, 20, 20, 54B
490 DATA 4D, 4F, 4E, 4F, 20, 5B, 55, 5D, D, A, 55, 20, 3D, 20, 75, 6E, 432
500 DATA 69, 6E, 73, 74, 61, 6C, 6C, D, A, 48, 6F, 74, 20, 6B, 65, 79, 5A2
510 DATA 20, 3D, 20, 20, 41, 6C, 74, 20, 4D, D, A, A, 24, 4D, 4F, 4E, 35A
520 DATA 4F, 20, 6E, 6F, 74, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, D, 5AD
530 DATA A, 24, 4D, 4F, 4E, 4F, 20, 63, 61, 6E, 27, 74, 20, 75, 6E, 69, 4C0
540 DATA 6E, 73, 74, 61, 6C, 6C, D, A, 24, 4E, 6F, 74, 20, 65, 6E, 6F, 55C
550 DATA 75, 67, 68, 20, 6D, 65, 6D, 6F, 72, 79, D, A, 24, 4D, 65, 6D, 557
560 DATA 6F, 72, 79, 20, 61, 6C, 6C, 6F, 63, 61, 74, 69, 6F, 6E, 20, 65, 625
570 DATA 72, 72, 6F, 72, D, A, 7, 24, 49, 6E, 73, 74, 61, 6C, 6C, 65, 543
580 DATA 64, D, A, 24, 55, 6E, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, D, 52F
590 DATA A, 24, FC, BB, 0, 1, F6, 17, 33, D2, 8C, C8, 42, 8E, C2, 3B, 719
600 DATA D0, 74, B, 8B, F3, 8B, FB, B9, 10, 0, F3, A6, 75, EE, BA, 3, 8D5
610 DATA 1, E8, E8, 0, BA, 57, 2, E8, E2, 0, BE, 81, 0, AC, 3C, D, 6E2
620 DATA 74, 10, 24, 5F, 3C, 55, 75, F5, E8, CA, 0, BA, 8D, 2, 74, 5E, 6CF
630 DATA EB, 65, E8, C0, 0, 74, 4, 32, C0, EB, 58, BD, 57, 2, 83, C5, 803
640 DATA F, 3B, 2E, 6, 0, BA, B9, 2, 77, 44, B8, 8, 35, CD, 21, 89, 51A
650 DATA 1E, 59, 1, 8C, 6, 5B, 1, BA, 64, 1, B8, 8, 25, CD, 21, B8, 510
660 DATA 9, 35, CD, 21, 89, 1E, 5D, 1, 8C, 6, 5F, 1, BA, 82, 1, B8, 518
670 DATA 9, 25, CD, 21, A1, 2C, 0, 8E, C0, B4, 49, CD, 21, BA, E8, 2, 6C6
680 DATA E8, 79, 0, 8B, D5, B1, 4, D3, EA, B8, 0, 31, CD, 21, E8, 6B, 85D
690 DATA 0, B0, 1, B4, 4C, CD, 21, 8C, C1, B8, 8, 35, CD, 21, 81, FB, 74B
700 DATA 64, 1, 75, 4A, 8C, C3, 3B, D9, 75, 44, B8, 9, 35, CD, 21, 81, 6A5
710 DATA FB, 82, 1, 75, 39, 8C, C3, 3B, D9, 75, 33, B4, 49, CD, 21, BA, 7DC
720 DATA CD, 2, 72, CA, 26, 8B, 16, 59, 1, 26, 8E, 1E, 5B, 1, B8, 8, 51A
730 DATA 25, CD, 21, 26, 8B, 16, 5D, 1, 26, 8E, 1E, 5F, 1, B8, 9, 25, 450
740 DATA CD, 21, E, 1F, BA, F4, 2, E8, 12, 0, A, C0, EB, A5, 8E, C1, 76E
750 DATA BA, A2, 2, EB, 99, 8C, C0, 8C, CB, 3B, C3, C3, B4, 9, CD, 21, 8F1
760 DATA C3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, C3
770 DATA 76091