10 ! ***************************************************************************
15 ! *          H[MND.BAS                                                      *
20 ! *    (C)   Tino Rajala   ALL RIGHTS RESERVED T.R DATA                     *
30 ! *          Agnesh|gsg. 39 C                                               *
40 ! *          59171 Motala       Tel:0141/51283                              *
50 ! *                                                                         *
55 ! *          Programmet {r ett startprogram. Anropar H[MND2                 *
56 ! *          Dessa tv} program {r nu lagrade i BAS-format, men b|r          *
57 ! *          vid normal anv{ndning lagras i BAC-format.                     *
60 ! ***************************************************************************
1000 FGCTL 0
1010 ; CHR$(12)
1020 FGCTL BLK+RED+YEL+CYA
1030 Z=FNBild
1040 GOTO 1030
1050 DEF FNBild
1060   X=X+22 : Y=Y+10
1070   OUT 34,138
1080   IF Y>100 GOTO 1090 ELSE 1130
1090   FGPOINT 22,10,2 : FGLINE X-22,Y-10 : FGPOINT 511-22,10 : FGLINE 511-X+22,Y-10
1100   FGPOINT 511-X+22,239-Y+10 : FGLINE 511-22,229 : FGPOINT X-22,239-Y+10 : FGLINE 22,229
1110   FGPAINT X,Y,3 : FGPAINT 0,0,2
1120   CHAIN 'H[MND2'
1130   FGPOINT X,Y,1 : FGLINE 511-X,Y : FGLINE 511-X,239-Y : FGLINE X,239-Y : FGLINE X,Y
1140   RETURN 0
1150 FNEND