100 IF PEEK(87) THEN GRAPHICS 0›105 ? CHR$(125):? "GTIA DEMONSTRATION":? ›110 ? "This Program creates an ATASCII file"›120 ? "for ATARI BASIC. The file consists"›130 ? "of one line which will produce 256"›140 ? "colors on your screen if you"›150 ? "have a GTIA installed.":? ›170 DIM S$(120):? "Please enter device specification."›180 INPUT S$:IF S$="" THEN 180›190 ? :TRAP 260:OPEN #1,8,0,S$›200 ? #1;"GR.9:F.K=TO79:C.K/5:PL.K,0:DR.K,191:N.K:K=USR(ADR(";›210 PUT #1,34:FOR K=1 TO 15:READ P:PUT #I,P:NEXT K:PUT #1,34›220 DATA 173,11,212,10,229,20,41,240,141,26,208,208,243,240,241›230 ? #1;"))":CLOSE #1:? "File has been written."›245 POSITION 2,19:? "ENTER ";CHR$(34);S$;CHR$(34)›250 POSITION 2,15:? "Now press the RETURN key if"›255 ? "you want to ENTER the file.":NEW ›260 STATUS #1,P:? "I/O ERROR ";P:END ›