1 ' Rectangle
2 ' A Knife 3 ' Amstrad Action March 87 10 lintot=0:address=39000:FOR lin=1 TO 12 20 FOR dat=1 TO 10:READ a$:a=VAL("&"+a$) 30 lintot=lintot+a:POKE address,a 40 address=address+1:NEXT:READ check 50 IF lintot<>check THEN PRINT "Error in line ";lin*10+170:END 60 lintot=0:NEXT:CALL 39000 70 PRINT"NEW COMMAND ùRECT,a,b,c,d,e INSTALLED" 80 DATA 01,62,98,21,d0,98,cd,d1,bc,c9,1447 90 DATA 67,98,c3,6c,98,52,45,43,d4,04,1144 100 DATA cd,ae,98,cd,c9,bb,cd,c9,98,cd,1887 110 DATA ae,98,cd,bb,98,11,00,00,60,69,1088 120 DATA cd,f6,bb,cd,ae,98,cd,c2,98,50,1800 130 DATA 59,cd,bb,98,60,69,cd,f6,bb,cd,1677 140 DATA ae,98,cd,c2,98,21,00,00,50,59,1079 150 DATA cd,f6,bb,cd,bb,98,21,00,00,11,1232 160 DATA 00,00,cd,f6,bb,c9,dd,66,07,dd,1390 170 DATA 6e,06,dd,56,09,dd,5e,08,c9,dd,1177 180 DATA 46,03,dd,4e,02,c9,dd,46,05,dd,1092 190 DATA 4e,04,c9,dd,7e,00,cd,de,bb,c9,1445 |