start tok64 d64-jtkU1m 5 REM"{delete*6}heroes of karn{space*2}i.gray"OFF 10 c=c+1:IFc=1THENLOAD"part2",8,1 20 IFc=2THEN100 30 IFc>2THEN1000 100 h$="{reverse off}{cm k} {reverse on}{cm k}{down}{left*3}{cm c}{reverse off}{cm i}{reverse on}{cm v}{down}{left*3}{cm d}{cm i}{cm f}{down}{left*3}{reverse off}{cm k} {reverse on}{cm k}" 105 e$="{reverse on}{cm d}{cm i*2}{down}{left*3}{space*2}{down}{left*2}{cm c}{reverse off}{cm i*2}" 110 r$="{reverse on}{cm d}{cm i}{cm f}{down}{left*3}{space*2}{cm i}{down}{left*3}{reverse off}{cm k}{right}{cm b}" 115 o$="{reverse on}{cm d}{cm i}{cm f}{down}{left*3}{reverse off}{cm k}{reverse on}{right}{cm k}{down}{left*3}{cm c}{reverse off}{cm i}{reverse on}{cm v}" 120 s$="{reverse on}{cm d}{cm i*2}{down}{left*3}{space*3}{down}{left*3}{reverse off}{cm i*2}{reverse on}{cm v}" 125 k$="{reverse off}{cm k} {reverse on}{cm b}{down}{left*3}{cm c}{cm b}{down}{left*2}{cm d}{reverse off}{cm b}{down}{left*2}{cm k} {cm b}" 130 a$="{reverse on}{cm d}{cm i}{cm f}{down}{left*3}{space*3}{down}{left*3}{reverse off}{cm k} {reverse on}{cm k}" 135 n$="{reverse on}{cm c}{right}{cm k}{down}{left*3}{reverse off}{cm k}{cm b}{reverse on}{cm k}{down}{left*3}{reverse off}{cm k} {reverse on}{cm f}" 140 ac$="{right}{up*2}" 300 POKE53280,9:POKE53281,9:PRINT"{orange}{clear}{ct h}{ct n}"; 305 PRINT"{white}{space*5}(C) INTERCEPTOR{sh space}SOFTWARE 1983":PRINT"{down}{space*2}{orange}The{down*2}"; 320 PRINT"{yellow}"h$ac$e$ac$r$ac$o$ac$e$ac$s$ 330 PRINTTAB(21)"{down}{orange}Of{down*2}"; 340 PRINT"{yellow}"k$ac$a$ac$r$ac$n$ 350 PRINT"{down}{pink} Translated from the ancient chronicles":PRINTTAB(19)"by" 355 PRINTTAB(16)"{down}{white}IAN{sh space}GRAY" 360 PRINT"{down*2}{pink}{space*6}Music arranged by {yellow}Chris Cox{down}" 365 FORl=0TO1500:POKE63488+l,PEEK(14336+l):NEXT 1000 IFc=2THENLOAD"part3",8,1 1010 IFc=3THENLOAD"part4",8,1 1020 PRINT"load";CHR$(34);"part5";CHR$(34);",8,1" 1030 PRINT"{down*4}run{up*8}" 1040 POKE631,13:POKE632,13:POKE198,2 stop tok64 (bastext 1.0)