home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C64'er
/
C64'er.iso
/
85xx
/
8510.d64
/
schreiberling
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
9KB
|
232 lines
5 REM ------ SCHREIBERLING -------------------
10 :
20 REM ----- NACHHILFEUNTERRICHT -------------
21 :
22 REM ----- ANGELSAECHSISCH FUER DRUCKER ----
23 :
100 REM ---- ALLE REM-ZEILEN KOENNEN AUSGELASSEN WERDEN
110 :
120 REM VON KLAUS KRAMER
130 REM OLAFSTR. 20 A
140 REM 4950 MINDEN
145 POKE 53281,14:POKE 53280,14:POKE 646,6
150 PRINT CHR$(147);"SCHREIBERLING SUCHT DATEN-BITTE WARTEN."
160 DIM A1$(72),A2$(72),A3$(72)
162 FOR I=1 TO 16:Q$=Q$+CHR$(0):NEXT I
163 FOR I=1 TO 23:O$=O$+CHR$(0):NEXT I
170 :
200 REM EINLESEN------------------------
210 :
220 RESTORE
230 FOR I=1 TO 72
240 FOR J=1 TO 3
245 : READ X
250 : IF X=-1 THEN 280
260 : IF J=1 THEN A1$(I)=A1$(I)+CHR$(X)
265 : IF J=2 THEN A2$(I)=A2$(I)+CHR$(X)
267 : IF J=3 THEN A3$(I)=A3$(I)+CHR$(X)
270 : GOTO 245
280 NEXTJ
282 IF LEN(A3$(I))=0 THEN A3$(I)=LEFT$(O$,LEN(A1$(I)))
285 NEXT I
290 :
300 REM ZEILEN-TEXTEDITOR---------------
310 :
320 PRINT CHR$(147);CHR$(14);CHR$(18);".....EINE.ZEILE.EINGEBEN:.............";
325 PRINT CHR$(146)
330 GET T$:PRINT T$;
340 IF T$=CHR$(13)THEN 410
350 GOTO 330
360 :
400 REM AUSGABE-------------------------
405 :
410 OPEN 1,4:E$=CHR$(27)
411 Y=50:P=0
414 Z=PEEK(1064)
415 IF Z=35 THEN Y=99:P=1
417 PRINT#1,E$"A"CHR$(8);:PRINT#1,E$"U"CHR$(1);
418 FOR J=1 TO 3
420 : IF Z=35 THEN PRINT#1,E$"L"CHR$(0)CHR$(5);
421 : IF Z<>35 THEN PRINT#1,E$"K"CHR$(128)CHR$(2);
422 : FOR I=1064+P TO 1064+Y
425 : W=PEEK(I)
430 : IF W=32 OR W=96 THEN PRINT#1,Q$;
440 : IF W=63 THEN F=-17:GOSUB 910
450 : IF W=40 OR W=41 THEN F=4:GOSUB 910
460 : IF W=33 THEN F=10:GOSUB 910
470 : IF W>64 AND W<91 THEN F=-64:GOSUB 910
475 : IF W>0 AND W<27 THEN F=46:GOSUB 910
480 : IF W>43 AND W<60 THEN F=-17:GOSUB 910
500 :
550 : NEXT I:IF J<3 THEN PRINT#1
560 NEXT J
670 PRINT#1:CLOSE1:GOTO 320
890 :
900 REM UNTERPROGRAMM 1---------------
905 :
910 IF J=1 THEN PRINT#1,A1$(W+F);
920 IF J=2 THEN PRINT#1,A2$(W+F);
930 IF J=3 THEN PRINT#1,A3$(W+F);
940 RETURN
1000 REM GROSS A-Z --------------------
1002 :
1010 DATA 0,32,65,198,200,240,252,127,31,1,0,0,0,0,0,0,-1
1020 DATA 0,62,255,3,3,2,4,200,248,254,31,3,1,2,4,0,-1,-1
1030 DATA 0,128,255,255,255,131,131,131,131,131,131,68,124,56,0,-1
1040 DATA 0,1,255,255,255,1,1,1,1,1,1,130,254,124,0,-1,-1
1050 DATA 0,7,31,63,112,192,128,128,128,128,128,128,64,120,56,0,-1
1060 DATA 0,224,248,252,14,3,1,1,1,1,1,1,2,30,28,0,-1,-1
1070 DATA 0,128,255,255,255,128,128,128,128,128,64,112,63,31,15,0,-1
1080 DATA 0,1,255,255,255,1,1,1,1,1,2,14,252,248,240,0,-1,-1
1090 DATA 0,7,31,63,114,194,130,130,131,131,131,131,66,112,48,0,-1
1100 DATA 0,224,248,252,14,3,1,1,1,1,129,1,2,14,12,0,-1,-1
1110 DATA 0,128,255,255,255,66,66,130,130,131,131,131,131,98,96,0,-1
1120 DATA 0,0,255,255,255,0,0,0,0,0,0,128,0,0,0,0,-1
1130 DATA 4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
1140 DATA 0,7,15,63,112,192,128,128,128,128,194,99,99,3,2,0,-1
1150 DATA 0,248,252,254,7,3,1,1,2,4,8,255,255,255,0,0,-1
1160 DATA 0,0,0,0,0,0,0,0,0,4,8,248,240,192,0,0,-1
1170 DATA 0,128,255,255,255,2,4,8,8,16,16,24,31,15,3,0,-1
1180 DATA 0,0,255,255,255,0,0,0,0,0,3,15,255,249,225,0,-1,-1
1190 DATA 0,128,255,255,255,0,0,-1
1200 DATA 0,0,255,255,255,1,0,-1,-1
1210 DATA 0,0,128,255,255,255,0,-1
1220 DATA 0,0,0,255,255,255,0,-1
1230 DATA 0,4,8,248,240,192,0,-1
1240 DATA 0,128,255,255,255,3,3,6,4,12,56,240,224,0,0,0,-1
1250 DATA 0,1,255,255,255,0,192,240,124,30,3,1,1,1,6,0,-1,-1
1260 DATA 0,128,255,255,255,0,0,0,0,0,0,0,0,0,0,0,-1
1270 DATA 0,1,255,255,255,1,1,1,1,1,1,1,1,3,7,0,-1,-1
1280 DATA 0,7,31,56,96,192,128,128,128,128,127,63,127,128,128,128,128
1290 DATA 192,96,56,31,7,0,-1
1300 DATA 0,192,248,62,7,1,1,0,0,0,255,255,255,0,0,0,1,1,7,62,248,192,0,-1,-1
1310 DATA 0,128,255,255,255,63,3,0,0,0,0,128,255,255,0,0,-1
1320 DATA 0,0,255,255,255,0,224,240,56,12,6,2,255,255,1,0,-1
1330 DATA 4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
1340 DATA 0,7,31,63,96,64,128,128,128,128,64,96,63,31,7,0,-1
1350 DATA 0,224,248,252,6,2,1,1,1,1,2,6,252,248,224,0,-1,-1
1360 DATA 0,128,255,255,255,48,112,192,128,128,128,192,96,63,31,0,-1
1370 DATA 0,0,255,255,255,12,14,3,1,1,1,3,6,252,248,0,-1
1380 DATA 0,0,252,252,252,4,0,0,0,0,0,0,0,0,0,0,-1
1390 DATA 0,15,63,127,192,128,128,128,128,128,64,96,63,63,63,64,0,-1
1400 DATA 0,240,252,254,3,1,1,1,1,1,14,12,255,255,255,0,0,-1
1410 DATA 0,0,0,0,0,0,0,0,0,0,0,4,252,248,248,0,0,-1
1420 DATA 0,128,255,255,255,129,129,129,129,129,195,126,60,0,0,0,-1
1430 DATA 0,1,255,255,255,0,128,192,96,56,30,7,3,3,2,0,-1,-1
1440 DATA 0,30,63,127,199,131,131,131,131,131,131,131,195,113,48,0,-1
1450 DATA 0,28,30,3,129,129,129,129,129,129,131,199,254,252,248,0,-1,-1
1460 DATA 0,32,96,192,128,128,255,255,255,128,128,128,128,128,0,-1
1470 DATA 0,0,0,0,0,0,255,255,255,1,0,0,0,0,0,-1,-1
1480 DATA 0,7,159,255,128,128,0,0,0,0,128,255,255,255,0,0,-1
1490 DATA 0,248,252,254,1,1,1,1,2,4,8,255,255,255,1,0,-1,-1
1500 DATA 0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
1510 DATA 0,0,0,0,0,0,224,248,255,15,48,192,0,0,0,0,-1,-1
1520 DATA 0,3,15,191,192,128,0,0,3,15,191,192,128,0,0,0,0,128,255,255
1530 DATA 255,0,0,-1
1540 DATA 0,248,254,254,3,1,1,1,250,254,254,3,1,1,1,2,2,4,255,255,255,1,0,-1,-1
1550 DATA 0,32,64,192,240,252,63,15,3,4,8,16,224,192,0,0,-1
1560 DATA 0,7,11,16,32,64,128,192,240,252,62,15,3,1,6,0,-1,-1
1570 DATA 0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
1580 DATA 0,0,0,0,0,0,224,248,255,14,48,192,0,0,0,0,-1
1590 DATA 0,0,0,0,12,28,24,96,128,0,0,0,0,0,0,0,-1
1600 DATA 0,128,192,192,224,128,128,129,131,143,158,188,240,224,192,0,-1
1610 DATA 0,3,7,15,29,121,241,225,129,1,1,7,3,3,1,0,-1,-1
1611 :
1612 REM ,-./ 0 BIS 9 ----------------
1613 :
1614 DATA 0,0,0,0,0,-1,0,0,3,3,0,-1,0,48,192,0,0,-1
1615 DATA 0,0,1,1,1,1,1,1,1,1,1,1,0,0,-1
1616 DATA 0,0,128,128,128,128,128,128,128,128,128,128,0,0,-1,-1
1617 DATA 0,0,0,0,0,0,-1,0,0,3,3,0,0,-1,-1
1618 DATA 0,0,0,0,0,0,3,12,48,192,0,0,-1
1619 DATA 0,0,3,12,48,192,0,0,0,0,0,0,-1,-1
1620 DATA 0,0,3,12,16,32,32,32,48,56,15,,0,-1
1630 DATA 0,240,252,14,3,1,1,1,2,12,240,0,0,-1,-1
1640 DATA 0,16,31,63,63,0,0,-1
1650 DATA 0,0,255,255,254,2,0,-1,-1
1660 DATA 0,8,16,32,32,32,48,31,15,0,0,0,0,0,-1
1670 DATA 0,1,3,7,15,29,249,225,193,1,1,3,2,0,-1
1680 DATA 0,0,0,128,128,128,128,128,128,128,0,0,0,0,-1
1690 DATA 0,16,32,33,51,62,28,0,0,-1
1700 DATA 0,64,128,128,128,255,254,56,0,-1
1710 DATA 0,16,32,64,128,128,0,0,0,-1
1720 DATA 0,0,0,0,1,2,4,15,31,63,0,0,0,0,-1
1730 DATA 0,32,96,160,32,32,32,255,255,254,32,32,32,0,-1,-1
1740 DATA 0,1,7,59,51,19,19,19,17,16,0,-1
1750 DATA 0,128,0,0,0,0,131,252,240,0,0,-1
1760 DATA 0,8,16,32,64,128,0,0,0,0,0,-1
1770 DATA 0,3,15,18,36,68,76,140,12,7,3,0,-1
1780 DATA 0,248,254,7,1,1,1,1,1,6,248,0,-1,-1
1790 DATA 0,48,48,24,24,24,17,22,56,32,0,-1
1800 DATA 0,0,1,15,30,112,128,0,0,0,0,-1
1810 DATA 0,48,240,192,0,0,0,0,0,0,0,-1
1820 DATA 0,0,121,135,131,131,133,121,0,0,-1
1830 DATA 0,124,194,129,1,1,129,226,124,0,-1,-1
1840 DATA 0,0,3,4,4,8,8,12,6,7,1,0,-1
1850 DATA 0,248,252,6,3,1,1,2,2,229,254,0,-1
1860 DATA 0,0,0,0,0,8,16,32,64,128,0,0,-1
1862 :
1864 REM -- SATZZEICHEN :;!()?----------
1866 :
1870 DATA 0,0,3,3,0,0,-1,0,0,3,3,0,0,-1,-1
1880 DATA 0,0,0,0,0,0,-1,0,0,51,51,0,0,-1,0,48,192,0,0,0,-1
1910 DATA 0,0,127,255,254,0,0,-1,0,0,243,243,0,0,0,-1,-1
1920 DATA 0,31,63,64,128,0,-1,0,248,252,2,1,0,-1,-1
1930 DATA 0,128,64,63,31,0,-1,0,1,2,252,248,0,-1,-1
1940 DATA 0,48,112,192,129,135,252,120,0,-1
1950 DATA 0,0,0,115,243,0,0,0,0,-1,-1
1952 :
1954 REM KLEIN A-Z
1956 :
1960 DATA 0,0,1,3,2,2,2,1,0,1,3,2,0,0,-1
1970 DATA 0,252,254,3,1,1,1,1,130,254,255,1,2,0,-1,-1
1980 DATA 0,64,255,255,0,1,2,2,2,2,1,1,0,-1
1990 DATA 0,0,252,254,193,193,1,1,1,2,254,252,0,-1,-1
2000 DATA 0,0,1,3,2,2,2,2,1,1,0,-1,0,252,254,3,1,1,1,1,2,4,0,-1,-1
2010 DATA 0,0,0,1,2,2,2,1,128,255,255,0,0,0,-1
2020 DATA 0,124,254,3,1,1,1,2,132,254,255,1,2,0,-1,-1
2030 DATA 0,0,1,3,2,2,2,2,1,0,0,-1
2040 DATA 0,252,254,35,33,33,33,33,161,98,0,-1,-1
2050 DATA 0,15,63,114,130,131,131,128,96,32,0,-1
2060 DATA 0,255,255,0,0,0,0,0,0,0,0,-1,0,252,252,4,0,0,0,0,0,0,0,-1
2070 DATA 0,0,0,1,2,2,2,1,1,1,1,1,0,-1
2080 DATA 0,124,254,131,1,1,1,130,132,191,127,128,0,-1
2090 DATA 0,56,52,4,4,4,4,8,16,240,224,0,0,-1
2100 DATA 0,128,255,255,1,2,2,2,1,1,0,0,0,0,-1
2110 DATA 0,0,255,2