| 10 ' *================================*
20 ' * DISCO RAM * 30 ' * ------------------ * 40 ' * AMSTRAD CPC 128K * 50 ' * AMSTRAD MAGAZINE * 60 ' * (C) 1988 * 70 ' *================================* 80 ' 90 DIREC=&A000:L=1000 100 MEMORY DIREC-1:RESTORE 110 READ A$ 120 C=0:SOM=O 130 WHILE A$<>"FIM" 140 POKE DIREC,VAL ("&"+A$) 150 SOM=SOM+VAL ("&"+A$) 160 C=C+1:DIREC=DIREC+1 170 IF C<8 THEN 240 180 READ A 190 IF SOM=A THEN 220 200 PRINT"ERRO NA LINHA";L 210 END 220 C=0:L=L+10 230 SOM=0 240 READ A$ 250 WEND 260 READ A 270 IF SOM=A THEN 300 280 PRINT"ERRO NA LINHA";L 290 END 300 PRINT"DADOS CORRECTOS" 310 ON ERROR GOTO 420 320 |TAPE 330 PRINT 340 INPUT"GRAVAR O CODIGO (S/N)";K$ 350 IF UPPER$ (LEFT$(K$,1))<>"S" THEN 390 360 INPUT"DISCO (S/N)";K$ 370 IF UPPER$ (LEFT$(K$,1))="S" THEN |DISC 380 SAVE"DISCORAM.BIN",B,&A000,&61F 390 CALL &A000 400 PRINT CHR$(7)"DISCO RAM INSTALADO" 410 END 420 IF ERR=28 AND ERL=320 THEN RESUME 390 430 PRINT CHR$ (7)"ERRO"ERR"NA LINHA"ERL:END 1000 DATA C3,FB,A0,F5,C5,3E,C0,01,1303 1010 DATA 00,7F,ED,79,C1,F1,C9,F5,1365 1020 DATA C5,F6,C4,01,00,7F,ED,79,1125 1030 DATA C1,F1,C9,F5,C5,47,3E,20,1242 1040 DATA CD,5A,BB,78,06,00,FE,0A,872 1050 DATA 38,05,04,D6,0A,18,F7,4F,639 1060 DATA 78,FE,00,20,04,3E,20,18,528 1070 DATA 02,C6,30,CD,5A,BB,79,C6,1049 1080 DATA 30,CD,5A,BB,C1,F1,C9,E5,1394 1090 DATA D5,11,39,A6,48,06,0A,3E,603 1100 DATA 20,12,13,10,FC,41,11,39,476 1110 DATA A6,7E,12,23,13,10,FA,D1,839 1120 DATA E1,C9,78,B7,28,34,FE,0B,1086 1130 DATA 38,02,06,0A,CD,47,A0,D5,723 1140 DATA AF,CD,0F,A0,11,00,40,06,642 1150 DATA 14,C5,D5,21,39,A6,06,0A,702 1160 DATA 1A,BE,20,0B,13,23,10,F8,577 1170 DATA E1,C1,EB,D1,37,18,0C,D1,1162 1180 DATA 01,14,00,EB,09,EB,C1,10,709 1190 DATA E0,D1,AF,CD,03,A0,C9,7E,1303 1200 DATA FE,FF,C8,CD,5A,BB,23,18,1250 1210 DATA F6,E5,7C,E6,C0,CB,17,CB,1450 1220 DATA 17,CB,17,CD,0F,A0,7C,E6,983 1230 DATA 3F,F6,40,67,7E,CD,03,A0,970 1240 DATA E1,C9,E5,F5,7C,E6,C0,CB,1649 1250 DATA 17,CB,17,CB,17,CD,0F,A0,855 1260 DATA 7C,E6,3F,F6,40,67,F1,77,1190 1270 DATA CD,03,A0,E1,C9,F5,CD,03,1247 1280 DATA B9,32,33,A6,CD,09,B9,32,901 1290 DATA 34,A6,F1,C9,F5,3A,34,A6,1181 1300 DATA CD,0C,B9,3A,33,A6,CD,0C,894 1310 DATA B9,F1,C9,21,00,40,22,2E,804 1320 DATA A6,06,14,AF,CD,0F,A0,3E,809 1330 DATA FF,11,14,00,77,19,10,FC,704 1340 DATA CD,03,A0,AF,21,90,01,22,755 1350 DATA 1E,A6,32,31,A6,32,32,A6,727 1360 DATA 32,30,A6,CD,31,A5,3A,F6,987 1370 DATA A5,B7,C0,2F,32,F6,A5,01,1049 1380 DATA 3D,A5,21,43,A6,CD,D1,BC,1094 1390 DATA C9,3A,31,A6,B7,20,0D,CD,907 1400 DATA 62,A0,38,0B,21,8E,A5,CD,870 1410 DATA 9F,A0,AF,C9,AF,3C,C9,3E,1193 1420 DATA 03,32,31,A6,7C,E6,3F,67,788 1430 DATA CD,A9,A0,D5,DD,E1,DD,77,1533 1440 DATA 12,23,CD,A9,A0,DD,77,15,948 1450 DATA 23,CD,A9,A0,DD,77,16,23,966 1460 DATA CD,A9,A0,4F,DD,71,18,23,1006 1470 DATA CD,A9,A0,47,DD,70,19,23,998 1480 DATA CD,A9,A0,DD,77,1A,32,28,990 1490 DATA A6,23,CD,A9,A0,DD,77,1B,1102 1500 DATA 32,29,A6,ED,43,20,A6,C5,956 1510 DATA 23,CD,A9,A0,4F,23,CD,A9,1057 1520 DATA A0,47,ED,43,24,A6,EB,CD,1177 1530 DATA DD,A0,DD,5E,15,DD,56,16,1046 1540 DATA C1,F6,FF,DD,7E,12,37,CD,1319 1550 DATA EC,A0,C9,3A,31,A6,B7,20,1085 1560 DATA 06,3E,00,32,31,A6,C9,37,589 1570 DATA 18,F7,18,F5,E5,3A,31,A6,1042 1580 DATA B7,28,21,3E,01,32,31,A6,584 1590 DATA 2A,20,A6,7C,B5,28,15,2B,649 1600 DATA 22,20,A6,2A,24,A6,CD,A9,850 1610 DATA A0,23,22,24,A6,6F,F6,FF,1043 1620 DATA 7D,37,E1,C9,F6,FF,18,FA,1381 1630 DATA 3A,31,A6,FE,03,20,27,3E,663 1640 DATA 02,32,31,A6,ED,4B,20,A6,777 1650 DATA ED,5B,24,A6,78,B1,28,0B,878 1660 DATA 0B,EB,CD,A9,A0,23,EB,77,1169 1670 DATA 23,18,F1,ED,43,20,A6,2A,844 1680 DATA 28,A6,F6,FF,37,C9,F6,FF,1464 1690 DATA C9,E5,2A,24,A6,2B,22,24,787 1700 DATA A6,2A,20,A6,23,22,20,A6,673 1710 DATA E1,C9,3E,01,32,31,A6,E5,983 1720 DATA 2A,20,A6,7C,B5,28,AD,F6,1004 1730 DATA FF,37,E1,C9,3A,32,A6,B7,1193 1740 DATA C2,4C,A1,CD,62,A0,30,08 ,950 1750 DATA 21,9E,A5,CD,9F,A0,AF,C9,1256 1760 DATA 3E,03,32,32,A6,CD,77,A2,817 1770 DATA EB,22,2A,A6,E5,DD,E1,DD,1373 1780 DATA 36,12,16,F6,FF,37,C9,3A,909 1790 DATA 30,A6,FE,14,28,25,AF,CD,945 1800 DATA 0F,A0,D5,01,0A,00,21,39,489 1810 DATA A6,ED,5B,2E,A6,ED,B0,3E,1181 1820 DATA 16,12,D1,2A,1E,A6,22,26,559 1830 DATA A6,21,00,00,22,22,A6,CD,638 1840 DATA 03,A0,C9,E1,21,B3,A5,CD,1171 1850 DATA 9F,A0,AF,CD,03,A0,C9,3A,1121 1860 DATA 32,A6,B7,20,08,F6,FF,3E,1002 1870 DATA 00,32,32,A6,C9,AF,CD,0F,862 1880 DATA A0,2A,22,A6,7C,B5,28,47,818 1890 DATA DD,2A,2E,A6,DD,75,0D,DD,1047 1900 DATA 74,0E,2A,1E,A6,DD,75,11,723 1910 DATA DD,74,12,DD,E5,CD,03,A0,1173 1920 DATA DD,2A,2A,A6,DD,46,12,AF,955 1930 DATA CD,0F,A0,78,DD,E1,DD,77,1286 1940 DATA 0A,2A,26,A6,22,1E,A6,3A,544 1950 DATA 30,A6,3C,32,30,A6,01,14,559 1960 DATA 00,DD,09,DD,22,2E,A6,CD,902 1970 DATA 03,A0,F6,FF,37,18,A8,AF,1086 1980 DATA CD,0F,A0,3A,30,A6,FE,14,926 1990 DATA 28,05,2A,2E,A6,36,FF,CD,813 2000 DATA 03,A0,18,E6,E5,F5,3A,32,999 2010 DATA A6,FE,01,28,09,FE,03,20,759 2020 DATA 20,3E,01,32,32,A6,2A,26,441 2030 DATA A6,7C,B5,28,19,F1,CD,C2,1176 2040 DATA A0,23,22,26,A6,2A,22,A6,675 2050 DATA 23,22,22,A6,E1,F6,FF,37,1050 2060 DATA C9,F1,E1,F6,FF,C9,21,C8,1602 2070 DATA A5,CD,9F,A0,F1,E1,AF,C9,1531 2080 DATA F5,3A,32,A6,FE,03,20,4D,885 2090 DATA 3E,02,32,32,A6,F1,DD,2A,834 2100 DATA 2A,A6,DD,77,12,F5,AF,CD,1191 2110 DATA 0F,A0,F1,DD,2A,2E,A6,DD,1112 2120 DATA 77,0A,DD,71,0F,DD,70,10,827 2130 DATA DD,75,0B,DD,74,0C,CD,03,906 2140 DATA A0,ED,53,22,A6,4B,42,EB,1056 2150 DATA 78,B1,28,15,2A,26,A6,7C,728 2160 DATA B5,28,16,EB,E7,EB,CD,C2,1343 2170 DATA A0,23,22,26,A6,13,0B,18,487 2180 DATA E7,F6,FF,37,C9,F1,F6,FF,1730 2190 DATA C9,21,C8,A5,CD,9F,A0,AF,1298 2200 DATA C9,21,DC,A5,CD,9F,A0,AF,1318 2210 DATA CD,0F,A0,DD,21,00,40,12,716 2220 DATA CD,DD,A0,DD,7E,00,FE,FF,1442 2230 DATA 28,3F,DD,E5,E1,06,0A,7E,920 2240 DATA CD,5A,BB,23,10,F9,3E,20,876 2250 DATA CD,5A,BB,7E,E6,0F,C6,24,1087 2260 DATA CD,5A,BB,DD,7E,0E,CB,3F,1109 2270 DATA CB,3F,3C,CD,1B,A0,3E,4B,855 2280 DATA CD,5A,BB,3E,0D,CD,5A,BB,1039 2290 DATA 3E,0A,CD,5A,BB,01,14,00,575 2300 DATA DD,09,1A,3C,12,FE,14,20,640 2310 DATA BA,3E,0D,CD,5A,BB,3E,0A,815 2320 DATA CD,5A,BB,F6,FF,37,CD,03,1246 2330 DATA A0,CD,EC,A0,C9,FE,01,C2,1411 2340 DATA 44,A1,DD,6E,00,DD,66,01,884 2350 DATA 46,23,5E,23,56,EB,CD,62,858 2360 DATA A0,D2,44,A1,AF,CD,0F,A0,1154 2370 DATA E5,DD,E1,01,0A,00,ED,42,989 2380 DATA DD,4E,03,DD,46,04,ED,43,901 2390 DATA 2C,A6,EB,2A,1E,A6,AF,ED,1095 2400 DATA 42,22,1E,A6,EB,36,FF,7D,965 2410 DATA FE,7C,28,5C,DD,7E,0A,FE,1121 2420 DATA FF,28,55,E5,DD,5E,07,DD,1152 2430 DATA 56,08,DD,6E,1B,DD,66,1C,803 2440 DATA ED,4B,1E,A6,CD,A9,A0,EB,1277 2450 DATA CD,C2,A0,EB,23,13,7A,B8,1154 2460 DATA 20,F2,7B,B9,20,EE,E1,54,1161 2470 DATA 5D,01,14,00,09,AF,CD,0F,518 2480 DATA A0,ED,B0,E5,DD,6E,07,DD,1361 2490 DATA 66,08,AF,ED,4B,2C,A6,ED,1044 2500 DATA 42,DD,75,07,DD,74,08,01,757 2510 DATA 14,00,DD,09,E1,3E,FF,12,810 2520 DATA 01,14,00,7B,FE,7C,20,D9,771 2530 DATA 3A,30,A6,3D,32,30,A6,2A,639 2540 DATA 2E,A6,01,14,00,AF,ED,42,711 2550 DATA 22,2E,A6,CD,03,A0,C9,CD,1020 2560 DATA E5,A4,C3,FC,A4,01,15,00,1026 2570 DATA 21,F7,A5,11,77,BC,ED,B0,1182 2580 DATA 01,03,00,21,0C,A6,11,9B,387 2590 DATA BC,ED,B0,C9,01,0F,00,21,851 2600 DATA 0F,A6,11,8C,BC,ED,B0,C9,1140 2610 DATA CD,0E,A5,C3,25,A5,01,15,803 2620 DATA 00,21,47,A6,11,77,BC,ED,831 2630 DATA B0,01,03,00,21,6B,A6,11,503 2640 DATA 9B,BC,ED,B0,C9,01,0F,00,973 2650 DATA 21,5C,A6,11,8C,BC,ED,B0,1049 2660 DATA C9,21,77,BC,11,47,A6,01,796 2670 DATA 27,00,ED,B0,C9,54,A5,C3,1097 2680 DATA DF,A4,C3,E5,A4,C3,FC,A4,1586 2690 DATA C3,08,A5,C3,0E,A5,C3,25,974 2700 DATA A5,C3,2D,A4,44,49,53,43,860 2710 DATA 4F,52,41,CD,44,49,53,43,722 2720 DATA 4F,52,41,4D,2E,49,CE,44,696 2730 DATA 49,53,43,4F,52,41,4D,2E,572 2740 DATA 4F,55,D4,4D,41,47,4E,C5,864 2750 DATA 4D,41,47,4E,45,2E,49,CE,685 2760 DATA 4D,41,47,4E,45,2E,4F,55,570 2770 DATA D4,41,50,41,47,C1,0D,0A,709 2780 DATA 43,6F,6D,61,6E,64,6F,80,833 2790 DATA 3F,21,21,0D,0A,FF,0D,0A,430 2800 DATA 4E,6F,6D,65,80,3E,80,65,818 2810 DATA 78,69,73,74,65,6E,74,65,884 2820 DATA 0D,0A,FF,0D,0A,44,69,72,588 2830 DATA 65,63,74,6F,72,69,6F,20,789 2840 DATA 6C,6C,65,6E,6F,0D,0A,FF,816 2850 DATA 0D,0A,44,69,73,63,6F,20,553 2860 DATA 52,61,6D,20,6C,6C,65,6E,747 2870 DATA 6F,0D,0A,FF,0D,0A,44,69,585 2880 DATA 72,65,63,74,6F,72,69,6F,871 2890 DATA 20,44,69,73,63,6F,20,52,644 2900 DATA 61,6D,3A,0D,0A,FF,00,C3,737 2910 DATA 39,A1,C3,BB,A1,C3,CA,A1,1319 2920 DATA C3,CC,A1,C3,F8,A1,C3,29,1400 2930 DATA A2,C3,3A,A2,C3,C1,A3,C3,1323 2940 DATA 4C,A2,C3,AF,A2,C3,0F,A3,1143 2950 DATA C3,24,A3,C3,60,A3,00,FIM,848 |