Compucolor.org – Virtual Media

Listing of file='SCR19.FOR;01' on disk='vmedia/chip_79-sector.ccvf'

( CONQUEST,  DISPLAY )                                                                                                          : PRINT_IT   -DUP IF 127 AND TEMP @ C!                                            ELSE 32 TEMP @ C!                                               ENDIF  ;                                                                                                      : DRAW_SCAN  31650 TEMP ! 1 F C@ 5 - ROLL> 2 F C@ 5 - ROLL>          11 0 DO                                                           11 0 DO                                                           OVER OVER GALAXY C@ PRINT_IT 6 TEMP +! 1+ ROLL<               LOOP 11 - ROLL> -322 TEMP +! SWAP 1+ ROLL< SWAP                LOOP DROP DROP ;                                          -->