start tok64 d64-iIUjji 10 n=n+1:IFn=1THENLOAD"graphic package",8,1 20 POKE53280,.:POKE53281,.:ct$=CHR$(34) 30 PRINT"{green}{clear}{down}{right}{reverse on} high resolution graphics package {reverse off} 40 PRINT"{cyan}{down*2}{right}sys 51200{space*13}= graphics on 50 PRINT"{right}sys 51203{space*13}= graphics off 60 PRINT"{right}sys 51206{space*13}= clear screen 70 PRINT"{right}sys 51209,pc*16+bc{space*4}= set colors 80 PRINT"{right}sys 51212,pc*16+bc{space*4}= set plot color 90 PRINT"{right}sys 51215,x,y{space*9}= set point 100 PRINT"{right}sys 51218,x,y{space*9}= erase point 110 PRINT"{right}sys 51221,x1,y1,x2,y2 = draw line 120 PRINT"{right}sys 51224,x1,y1,x2,y2 = erase line 130 PRINT"{right}sys 51227,"ct$"name"ct$",da{space*3}= load screen 140 PRINT"{right}sys 51230,"ct$"name"ct$",da{space*3}= save screen 150 PRINT"{right}sys 51233,lf{space*10}= hardcopy 160 PRINT"{down}{right}pc{green}=plot color{space*5}{cyan}bc{green}=background color 170 PRINT"{right}{cyan}x{green}=x-coord. (0-319) {cyan}y{green}=y-coord. (0-199) 180 PRINT"{right}{cyan}name{green}=filename{space*5}{cyan}da{green}=device number 190 PRINT"{right}{cyan}lf{green}=logical file number (open lf,da) stop tok64 (bastext 1.0)