1 ' Unscramble
2 ' by Paul James 3 ' Amstrad Action September 87 10 MODE 0: SPEED INK 7,7: BORDER 0:INK 3,15,26:INK 4,26,15 20 ' Hide Screen 30 OUT &BC00,65: OUT &BD00,0 40 ' Print screen may be omitted 50 ' or different routine inserted 60 st=1: en=12: s=2: flag=0 70 FOR p=st TO en STEP s: LOCATE p+1,p 80 IF flag=1 THEN LOCATE p,25-p 90 PEN 3: PRINT"Amstrad": LOCATE p+2,p+1 100 IF flag=1 THEN LOCATE p-1,(25-p)+1 110 PEN 4: PRINT"Action": NEXT: st=12: en=1: s=-2 120 IF flag=0 THEN flag=1: GOTO 70 130 ' Recover Screen 140 FOR unsc=0 TO 40: CALL &BD19: OUT &BC00,65: 150 OUT &BD00,unsc: FOR w=1 TO 60: NEXT w,unsc 160 ' Finish or place rest of program here 170 'Press key to end 180 WHILE INKEY$="": WEND 190 CALL &BC02: PEN 1: MODE 2: LIST |