2 ! ********************************************************************** 3 ! Program H.BAS Utg}va 1.0 1986-11-23 4 ! av Curt Rehnborg, <1121> 5 ! F|r ABC806 6 ! Ins{nd av Curt Rehnborg 7 ! ********************************************************************** 8 ! Testar h}rdvaran f|r bildgenerering i ABC806. 10 INTEGER 20 ATTRIBUTE 1 30 FGCTL GBLK+RED+GRN+BLU 40 FGPOINT A,0,0 50 FGFILL 511,239 60 FOR I=0 TO 285 70 PRINT "ABC806 "; 80 NEXT I 90 WHILE K<=3 100 FGPICTURE K,K,4 110 FGPOINT 0,0,0 120 FGFILL 511,239 130 FGLINE 0,239,1 140 FGLINE 0,0 150 FGLINE 511,0 160 FGLINE 511,239 170 FGLINE 0,0 180 FGPOINT 0,239 190 FGLINE 511,0 200 FGPAINT 100,20,3 210 FGPAINT 20,100,2 220 FGPAINT 400,100,1 230 IF A=0 THEN A=272 : ; CUR(24,0) EL YEL TIME$ SPACE$(21); ELSE A=0 : ; CUR(24,0) EL MAG SPACE$(21) TIME$; 240 K=K+1 250 WEND 260 FOR I=0 TO 3 265 ; CUR(24,0) EL YEL 'SIDA' I; 270 FGPICTURE I,I,4 : GET A$ 280 NEXT I 290 END