home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1985
/
03
/
doors.bas
< prev
next >
Wrap
BASIC Source File
|
1984-10-02
|
2KB
|
33 lines
100 GRAND.TOTAL.# = 0
110 OPEN "DOORS.COM" AS #1 LEN=1
120 FIELD #1, 1 AS DOORS.BYTE.$
130 FOR I.% = 1 TO 178
140 READ DOORS.DATA.%
150 GRAND.TOTAL.# = GRAND.TOTAL.# + DOORS.DATA.%
160 LSET DOORS.BYTE.$ = CHR$(DOORS.DATA.%)
170 PUT #1
180 PRINT USING "########"; GRAND.TOTAL.#;
190 NEXT I.%
200 READ THE.TOTAL.#
210 IF THE.TOTAL.# <> GRAND.TOTAL.# THEN PRINT CHR$(7): PRINT "***Error - Total Incorrect!" : PRINT "***Check Data Statements and Re-run the program."
220 CLOSE #1
230 END
240 DATA 233, 138, 0, 0, 0, 0, 0, 30, 6, 80
250 DATA 83, 81, 82, 86, 87, 156, 46, 255, 30, 3
260 DATA 1, 184, 64, 0, 142, 216, 160, 23, 0, 36
270 DATA 9, 60, 9, 117, 97, 180, 15, 205, 16, 60
280 DATA 7, 116, 11, 60, 3, 118, 3, 235, 83, 144
290 DATA 60, 1, 118, 78, 180, 3, 183, 0, 205, 16
300 DATA 139, 30, 16, 0, 139, 203, 129, 225, 48, 0
310 DATA 51, 217, 129, 203, 32, 0, 176, 3, 131, 249
320 DATA 48, 116, 6, 129, 203, 48, 0, 176, 7, 137
330 DATA 30, 16, 0, 50, 228, 205, 16, 180, 2, 183
340 DATA 0, 205, 16, 184, 0, 176, 142, 192, 184, 0
350 DATA 184, 142, 216, 131, 249, 48, 117, 4, 30, 6
360 DATA 31, 7, 51, 255, 51, 246, 185, 208, 7, 252
370 DATA 243, 165, 95, 94, 90, 89, 91, 88, 7, 31
380 DATA 207, 30, 184, 0, 0, 142, 216, 250, 161, 36
390 DATA 0, 46, 163, 3, 1, 161, 38, 0, 46, 163
400 DATA 5, 1, 199, 6, 36, 0, 7, 1, 140, 14
410 DATA 38, 0, 251, 186, 141, 1, 205, 39, 16143