10 ' **********************************
20 ' *** *** 30 ' ** TOOLBASIC + ** 40 ' *** *** 50 ' ********************************** 60 ' ** BASIC Erweiterung fuer ** 70 ' ** SCHNEIDER CPC 464 ** 80 ' ** ** 90 ' ** (C) 6/1986 by Chr. Doetsch ** 100 '** 4200 Oberhausen 1 ** 110 '********************************** 120 ' 130 '********************************** 140 '** Das Programm erweitert das ** 150 '** Schneider-Basic um 13 neue ** 160 '** Befehle. ** 170 '** Es kann mit Toolbasic 1.1 ** 180 '** oder auch alleine genutzt ** 190 '** werden. ** 200 '********************************** 210 ' 220 MODE 2:BORDER 26:zeile=1000 230 PEN 1:PAPER 0:INK 1,0:INK 0,26 240 MEMORY &8000 250 INPUT"Soll TOOLBASIC + mit TOOLBASIC 1.1 zusammengeladen werden ";a$ 260 IF UPPER$(a$)="J" THEN 330 270 OPENOUT"tool+.bas" 280 PRINT #9,"1 memory &95ff:load"+CHR$(34)+"tool+.bin"+CHR$(34)+":call &9980:delete 1" 290 CLOSEOUT 300 GOSUB 400 310 SAVE"tool+.bin",b,&9600,&3FF 320 END 330 LOAD"toolbsc.bin" 340 OPENOUT"tool1+.bas" 350 PRINT #9,"1 memory &8000:load"+CHR$(34)+"tool1+.bin"+CHR$(34)+":call &9980:call &80d0:delete 1" 360 CLOSEOUT 370 GOSUB 400 371 FOR i=&9600 TO &9A00 : IF PEEK(i)=&CD AND PEEK(i+1)=0 AND PEEK(i+2)=&96 THEN POKE i+1,&48:POKE i+2,&94 372 NEXT 380 SAVE"tool1+.bin",b,&80D0,&192F 390 END 400 FOR i=&9600 TO &99FF STEP 8 410 FOR j=0 TO 7 420 READ a$:a=VAL("&"+a$):POKE i+j,a 430 sum=sum+a*(j+1):summe=summe+a 440 NEXT j 450 READ a$:IF sum<>VAL("&"+a$) THEN PRINT "DATA-Fehler in Zeile";zeile:END 460 LOCATE 3,3:PRINT "ZEILE :";zeile;"O.K." 470 zeile=zeile+10:sum=0 480 NEXT i 490 IF summe<>112081 THEN PRINT "DATA-Fehler in Gesamtsumme":END 500 RETURN 1000 DATA DD,6E,00,DD,23,DD,66,00,0DD4 1010 DATA DD,23,C9,00,00,00,00,00,037E 1020 DATA 00,00,00,00,00,00,00,FE,07F0 1030 DATA 04,C0,21,00,00,22,0D,96,07BE 1040 DATA CD,00,96,7E,22,0B,96,32,0B1D 1050 DATA 10,96,23,5E,23,56,EB,22,0D4D 1060 DATA 13,96,CD,00,96,7D,32,11,0B68 1070 DATA 96,3A,10,96,BD,D8,CD,00,11EE 1080 DATA 96,7E,32,12,96,23,5E,23,09DA 1090 DATA 56,EB,22,15,96,CD,00,96,0F52 1100 DATA 7D,CD,B4,BB,3E,5F,CD,5A,12FA 1110 DATA BB,3E,08,CD,5A,BB,CD,06,1072 1120 DATA BB,32,0F,96,FE,0D,28,61,0D08 1130 DATA FE,7F,28,3D,3A,11,96,21,0A12 1140 DATA 0D,96,BE,28,60,3A,12,96,0C7D 1150 DATA B7,28,0D,4F,06,00,3A,0F,0496 1160 DATA 96,2A,15,96,ED,B1,20,D6,13D8 1170 DATA 21,0D,96,4E,06,00,2A,13,0511 1180 DATA 96,09,3A,0F,96,77,CD,5A,0FB5 1190 DATA BB,3E,5F,CD,5A,BB,3E,08,0D9E 1200 DATA CD,5A,BB,21,0D,96,34,18,0A27 1210 DATA B5,3A,0D,96,B7,28,26,3D,0B1D 1220 DATA 32,0D,96,3E,10,CD,5A,BB,1072 1230 DATA 3E,08,CD,5A,BB,3E,5F,CD,1239 1240 DATA 5A,BB,3E,08,CD,5A,BB,18,0EA4 1250 DATA 95,2A,0B,96,3A,0D,96,77,0CA4 1260 DATA 3E,10,C3,5A,BB,3E,07,CD,0FC3 1270 DATA 5A,BB,C3,5E,96,00,00,63,0B97 1280 DATA 20,62,0D,0A,35,30,36,20,05D6 1290 DATA 27,6C,64,20,61,2C,31,30,086F 1300 DATA 0D,0A,35,ED,4B,DD,96,79,12FB 1310 DATA FE,12,C8,E5,21,DF,96,09,114F 1320 DATA E3,CD,00,B9,CD,EF,E8,E3,1C6C 1330 DATA D1,73,23,72,21,DD,96,34,0F75 1340 DATA 34,C9,DD,7E,00,FE,FF,28,1482 1350 DATA 13,ED,4B,DD,96,79,B7,C8,1747 1360 DATA 21,DD,96,09,5E,23,56,EB,101B 1370 DATA 22,75,AE,C9,21,DD,96,35,11CF 1380 DATA 35,C9,0A,35,31,31,20,27,06EC 1390 DATA 63,61,6C,6C,20,26,62,39,0A13 1400 DATA 30,30,0D,0A,35,31,32,20,056C 1410 DATA 27,6C,64,20,61,2C,38,0D,0788 1420 DATA 0A,35,31,33,20,27,6C,64,0971 1430 DATA 20,28,26,61,63,32,31,29,0820 1440 DATA 2C,61,0D,0A,35,31,34,20,05D8 1450 DATA 27,6C,64,20,62,2C,32,35,08A3 1460 DATA 0D,0A,35,31,C9,47,21,74,0BA2 1470 DATA 97,DD,56,00,DD,23,DD,5E,1171 1480 DATA 00,DD,23,2B,72,2B,73,10,09B0 1490 DATA F0,E9,FE,01,C0,DD,7E,00,1220 1500 DATA C3,DE,BB,FE,01,C0,DD,7E,1728 1510 DATA 00,C3,E4,BB,FE,02,C0,CD,17C8 1520 DATA 00,96,EB,CD,00,96,06,03,0AE7 1530 DATA 1A,4E,EB,12,71,23,13,10,07CB 1540 DATA F7,00,00,00,00,00,00,00,00F7 1550 DATA 00,FE,04,28,0D,FE,05,C0,0F00 1560 DATA DD,7E,00,DD,23,DD,23,CD,1287 1570 DATA DE,BB,CD,00,96,22,B7,97,122E 1580 DATA CD,00,96,22,B3,97,CD,00,0FBB 1590 DATA 96,22,B5,97,CD,00,96,22,0E80 1600 DATA B1,97,CD,C6,BB,E5,D5,ED,1D9E 1610 DATA 5B,B1,97,2A,B5,97,CD,C0,16D8 1620 DATA BB,ED,5B,B3,97,2A,B7,97,141A 1630 DATA CD,F6,BB,D1,E1,C3,C0,BB,1C3D 1640 DATA 00,00,27,63,61,6C,6C,20,0A62 1650 DATA 26,62,62,00,0E,FF,3E,01,0A0A 1660 DATA 32,0B,98,11,28,98,21,02,07A3 1670 DATA 98,06,81,C3,E0,BC,21,02,0EF2 1680 DATA 98,AF,32,0B,98,C3,E6,BC,166C 1690 DATA C5,F5,ED,4B,00,98,0B,00,0A7F 1700 DATA 00,00,00,79,B0,20,F7,F1,145D 1710 DATA C1,C9,FE,01,C0,DD,7E,00,11B1 1720 DATA B7,28,0E,F3,32,00,98,FB,11F7 1730 DATA 3A,0B,98,B7,C0,C3,0C,98,125A 1740 DATA C9,3A,0B,98,B7,C8,C3,1E,1246 1750 DATA 98,00,00,2C,73,70,61,63,0BE6 1760 DATA 65,0D,0A,35,33,30,20,27,05A8 1770 DATA 63,70,20,31,32,38,0D,00,050C 1780 DATA 00,ED,5B,59,98,CD,00,B9,11DD 1790 DATA 7B,B7,C8,11,59,98,EB,35,11E7 1800 DATA 35,EB,7E,B7,F5,CC,D7,98,1A93 1810 DATA F1,C4,E7,98,22,6F,98,23,1012 1820 DATA 7E,FE,7C,20,33,23,7E,FE,11A1 1830 DATA 00,20,2D,23,7E,FE,4C,20,0CD1 1840 DATA 27,23,7E,FE,4F,20,21,23,0A29 1850 DATA 7E,FE,4F,20,1B,23,7E,FE,10A2 1860 DATA D0,20,15,2A,6F,98,7E,B7,10DC 1870 DATA F5,CC,D7,98,F1,C4,E7,98,1BD0 1880 DATA 22,75,AE,AF,32,F3,98,C9,16EE 1890 DATA 2A,83,AE,ED,4B,6F,98,A7,145F 1900 DATA ED,42,F8,C5,E1,18,AB,3A,12DF 1910 DATA F3,98,B7,20,0A,3E,01,32,0805 1920 DATA F3,98,23,23,23,23,C9,23,0B30 1930 DATA CD,EF,E8,AF,32,F3,98,C9,193B 1940 DATA C3,EF,E8,00,ED,4B,59,98,12EB 1950 DATA 79,FE,12,C8,E5,21,5B,98,1247 1960 DATA 09,E3,CD,00,B9,CD,EF,E8,1A6A 1970 DATA E3,D1,73,23,72,21,59,98,0E99 1980 DATA 34,34,C9,ED,4B,59,98,79,1228 1990 DATA B7,C8,21,59,98,09,5E,23,0AE6 2000 DATA 56,EB,22,75,AE,C9,00,3A,0E52 2010 DATA C8,B1,47,04,3E,0A,87,10,08B2 2020 DATA FD,32,26,99,F3,CD,00,B9,138C 2030 DATA 3E,08,32,21,AC,06,19,21,069F 2040 DATA 00,00,C5,2C,26,00,3A,26,0683 2050 DATA 99,47,24,E5,CD,75,BB,CD,176B 2060 DATA 60,BB,38,06,CD,9C,BB,CD,15C4 2070 DATA 60,BB,FE,21,38,04,FE,80,1176 2080 DATA 38,02,3E,20,CD,56,C3,E1,13D8 2090 DATA 10,E0,CD,A8,C3,C1,10,D2,162C 2100 DATA FB,C9,35,30,37,AF,AF,32,0F72 2110 DATA 59,98,32,DD,96,CF,68,9E,1523 2120 DATA 3E,C3,32,A7,BC,21,76,99,116A 2130 DATA 22,A8,BC,01,94,99,21,72,0E9B 2140 DATA 99,C3,D1,BC,BD,99,C3,F4,1BBE 2150 DATA 98,C3,13,99,C3,71,98,C3,1570 2160 DATA F3,96,C3,12,97,C3,3A,98,128B 2170 DATA C3,75,97,C3,8A,97,C3,93,16A7 2180 DATA 97,C3,B9,97,C3,9C,97,C3,1854 2190 DATA 17,96,C3,27,99,44,CF,4C,10C6 2200 DATA 4F,4F,D0,45,58,49,D4,52,103B 2210 DATA 45,50,45,41,D4,55,4E,54,0D9C 2220 DATA 49,CC,53,4C,4F,D7,4D,C3,12D2 2230 DATA 47,50,45,CE,47,50,41,50,0C78 2240 DATA 45,D2,4C,49,4E,C5,53,57,0F12 2250 DATA 41,D0,41,43,43,45,50,D4,0F6D 2260 DATA 54,45,58,54,43,4F,50,D9,0F57 2270 DATA 00,00,00,00,00,00,00,00,0000 |