Search the Community
Showing results for tags 'exetended basic'.
Found 1 result
-
Does anyone know how to use GRAPHICOMP by Barrry Traver? Do you you let his program look at your whole program listing, or do you just make a file of only graphic related parts? How do you get past the 4th screen? Here is a sample of some GRAPHICs I would like to speed up the drawing of in XB. I guess if it works, it makes a file and you CALL LINK to that file somehow. James 250 GOSUB 4000! DISPLAY EARTH 4000 !DRAW EARTH 645-760,970-1010 4010 CALL COLOR(2,6,1,3,6,1,4,3,6,5,15,2) 4020 RESTORE 4060 4030 FOR I=6 TO 14 :: CALL COLOR(I,16,2) :: NEXT I 4040 FOR I=0 TO 13 :: READ E$(I) :: CALL CHAR(40+I,E$(I)) :: NEXT I 4050 FOR I=0 TO 7 :: READ E$(I) :: CALL CHAR(I+56,E$(I)) :: NEXT I 4060 DATA 0000000000000F7F,000000000000F0FE,01030F1F3F7FFFFF 4070 DATA 80C0F0F8FCFEFFFF,0001010103030303,FFFFFFFFFFFFFFFF 4080 DATA 00808080C0C0C0C0,0303030301010100,C0C0C0C080808000 4090 DATA FF7F3F3F1F0F0703,FFFEFCFCF8F0E0C0,7F0F000000000000 4100 DATA FEF0000000000000,0800667C18666810 4110 DATA E0F07F7F7FFFFFFF,0818F8F8F0F8F0F0,7F7F7F3D1C0E0201 4120 DATA F0F0908800180000,03070F0F0F070703,F0FFFFFEFCFCF8F0 4130 DATA 0303010101010101,E0C0C0C080808000 4140 DISPLAY AT(2,24):CHR$(40)&CHR$(41) :: DISPLAY AT(3,23):CHR$(42)&CHR$(56)&CHR$(57)&CHR$(43) 4150 DISPLAY AT(4,22):CHR$(44)&CHR$(45)&CHR$(58)&CHR$(59)&CHR$(45)&CHR$(46) 4160 DISPLAY AT(5,22):CHR$(47)&CHR$(45)&CHR$(60)&CHR$(61)&CHR$(45)&CHR$(48) 4170 DISPLAY AT(6,23):CHR$(49)&CHR$(62)&CHR$(63)&CHR$(50) 4180 DISPLAY AT(7,24):CHR$(51)&CHR$(52) :: RETURN
Like us on Facebook
Follow us on Twitter
AtariAge on Instagram
Watch us on YouTube
Chat on Discord