10 REM ****************************
20 REM *       BASIC-LADER        *
30 REM *    CBAUD 1200/1 V1.0     *
40 REM * (C) 1986 BY ARNDT BAER   *
50 REM ****************************
60 ? CHR$(125):? :? :? :POKE 756,204:POKE 752,1
70 ? "       BASIC-LADER        "
80 ? "    CBAUD 1200/1 V1.0     "
90 ? " (C) 1986 BY ARNDT BAER   "
100 ? :? :? :? " BITTE EINEN MOMENT GEDULD"
110 GOSUB 210:GOSUB 500
120 POSITION 2,10:? " 1-DISKETTENFILE 'D:CBAUD.COM' ODER"
130 ? " 2-CASSETTENFILE    SCHREIBEN ?"
135 CLOSE #1:OPEN #1,4,0,"K:":GET #1,KEY:CLOSE #1
140 IF KEY<>49 AND KEY<>50 THEN GOTO 135
145 TRAP 190:IF KEY=49 THEN CLOSE #1:OPEN #1,8,0,"D:CBAUD.COM":A=USR(ADR(ML$),16,11,38906,847):GOTO 160
150 CLOSE #1:OPEN #1,8,128,"C:":A=USR(ADR(ML$),16,11,38912,896)
160 IF A>127 THEN GOTO 190
170 CLOSE #1:? :? "FERTIG !!!":END 
190 CLOSE #1:? :? CHR$(125);"I/O - FEHLER NR.";PEEK(195):GOTO 120
210 DIM ML$(40)
220 RESTORE 230:FOR I=1 TO 35:READ A:ML$(I,I)=CHR$(A):NEXT I
230 DATA 104,104,104,170,104,104
240 DATA 157,66,3,104,157,69,3
250 DATA 104,157,68,3,104,157,73
260 DATA 3,104,157,72,3,32,86,228
270 DATA 132,212,169,0,133,213,96
280 RETURN 
300 DATA 255,255,0,152,60,155,0,7,884
301 DATA 0,152,13,152,169,60,141,2,689
302 DATA 211,24,96,32,90,154,162,0,769
303 DATA 240,2,162,1,169,204,141,244,1163
304 DATA 2,134,203,188,143,153,32,26,881
305 DATA 153,166,203,232,224,161,208,241,1588
306 DATA 169,255,141,80,3,32,36,153,869
307 DATA 201,65,208,31,165,9,41,1,721
308 DATA 133,9,173,118,0,141,1,211,786
309 DATA 165,206,141,14,210,133,16,160,1045
310 DATA 125,32,26,153,169,224,141,244,1114
311 DATA 2,24,96,162,0,142,128,153,707
312 DATA 162,60,142,2,211,201,66,240,1084
313 DATA 7,201,67,208,200,141,128,153,1105
314 DATA 173,118,0,9,2,141,1,211,655
315 DATA 169,0,133,65,169,153,141,85,915
316 DATA 3,169,141,141,84,3,169,3,713
317 DATA 141,82,3,169,4,141,90,3,633
318 DATA 169,128,141,91,3,32,45,153,762
319 DATA 176,128,162,11,189,129,153,157,1105
320 DATA 80,3,202,208,247,32,45,153,970
321 DATA 144,3,76,20,152,24,173,130,722
322 DATA 4,105,128,141,84,3,173,131,769
323 DATA 4,105,0,141,85,3,169,0,507
324 DATA 141,88,3,206,129,4,173,129,873
325 DATA 4,74,141,89,3,110,88,3,512
326 DATA 32,45,153,144,3,76,20,152,625
327 DATA 173,130,4,133,203,173,131,4,951
328 DATA 133,204,160,127,185,128,4,145,1086
329 DATA 203,24,136,16,247,173,132,4,935
330 DATA 133,2,173,133,4,133,3,169,750
331 DATA 224,141,244,2,32,7,153,32,835
332 DATA 23,153,173,128,153,208,3,108,949
333 DATA 10,0,76,60,152,24,165,203,690
334 DATA 105,6,133,203,165,204,105,0,921
335 DATA 133,204,108,203,0,108,2,0,758
336 DATA 173,7,228,72,173,6,228,72,959
337 DATA 152,96,173,37,228,72,173,36,967
338 DATA 228,72,96,162,16,32,86,228,920
339 DATA 48,2,24,96,132,204,192,136,834
340 DATA 240,248,169,60,141,2,211,162,1233
341 DATA 0,134,203,188,72,154,32,26,809
342 DATA 153,166,203,232,224,18,208,241,1445
343 DATA 169,0,133,213,165,204,133,212, 1229
344 DATA 32,170,217,32,230,216,162,1,1060
345 DATA 134,203,188,128,5,48,9,32,747
346 DATA 26,153,166,203,232,24,144,240,1188
347 DATA 152,41,127,168,32,26,153,160,859
348 DATA 155,32,26,153,56,96,0,255,773
349 DATA 1,7,1,128,4,179,253,128,701
350 DATA 0,4,128,67,58,125,155,4,541
351 DATA 0,0,0,0,0,0,0,0,0
352 DATA 0,0,0,0,7,155,1,67,230
353 DATA 66,65,85,68,32,49,50,48,463
354 DATA 48,47,49,2,155,1,40,99,441
355 DATA 41,32,49,57,56,54,32,98,419
356 DATA 121,32,2,155,1,32,32,65,440
357 DATA 114,110,100,116,32,66,11,114,663
358 DATA 32,2,155,5,3,3,3,3,206
359 DATA 3,3,3,3,3,3,3,3,24
360 DATA 6,155,155,4,0,7,155,1,483
361 DATA 193,2,32,46,46,46,66,65,496
362 DATA 83,73,67,47,68,79,83,32,532
363 DATA 155,5,3,6,155,4,0,7,335
364 DATA 155,1,194,2,32,46,46,46,522
365 DATA 77,76,45,80,82,79,71,82,592
366 DATA 65,77,77,32,76,65,68,69,529
367 DATA 78,155,5,3,6,155,4,0,406
368 DATA 7,155,1,195,2,32,46,46,484
369 DATA 46,194,32,85,78,68,32,193,728
370 DATA 155,5,3,6,155,155,186,2,667
371 DATA 180,2,174,2,166,2,158,2,686
372 DATA 240,2,229,2,220,2,213,2,910
373 DATA 205,2,199,2,190,2,253,155,1008
374 DATA 73,47,79,32,45,32,70,101,479
375 DATA 104,108,101,114,32,78,114,46,697
376 DATA 173,1,211,41,254,133,118,165,1096
377 DATA 16,133,206,169,0,141,14,212,891
378 DATA 141,14,210,133,16,133,203,169,1019
379 DATA 192,133,204,169,208,133,205,32,1276
380 DATA 219,154,169,214,133,204,169,0,1262
381 DATA 133,203,133,205,32,219,154,169,1248
382 DATA 254,141,1,211,169,230,141,163,1310
383 DATA 235,141,65,253,169,2,141,168,1174
384 DATA 235,141,70,253,169,234,141,3,1246
385 DATA 237,141,4,237,141,5,237,169,1171
386 DATA 118,141,9,237,160,23,185,48,921
387 DATA 154,153,249,237,136,16,247,165,1357
388 DATA 206,133,16,141,14,210,169,64,953
389 DATA 141,14,212,160,63,185,253,154,1182
390 DATA 153,0,206,136,16,247,169,2,929
391 DATA 141,198,2,9,14,141,197,2,704
392 DATA 96,160,0,162,254,177,203,142,1194
393 DATA 1,211,145,203,162,255,142,1,1120
394 DATA 211,230,203,165,203,208,236,24,1480
395 DATA 165,204,105,1,133,204,197,205,1214
396 DATA 208,225,96,0,0,0,0,255,784
397 DATA 255,255,0,21,21,21,21,21,615
398 DATA 21,21,21,112,112,112,112,112,623
399 DATA 112,112,112,255,170,170,170,170,1271
400 DATA 0,0,0,0,0,0,0,15,15
401 DATA 23,21,20,21,20,20,18,10,153
402 DATA 0,0,0,112,176,144,160,160,752
403 DATA 0,0,0,0,0,0,0,224,224
404 DATA 208,176,112,226,2,227,2,6,959
405 DATA 152,224,2,225,2,13,152,21,791
500 RESTORE 300:FOR I=0 TO 105:SUM=0
510 FOR T=0 TO 7:READ A:POKE 38906+I*8+T,A:SUM=SUM+A:NEXT T
520 READ A:IF A<>SUM THEN ? :? CHR$(125);" DATENFEHLER IN ZEILE ";300+I:LIST 300+I:END 
530 NEXT I
540 RETURN 
