1 REM Ins{nd av Kristoffer Eriksson SYSOP <5357> 1986-08-13 03.19.49 (DUMP) +------------------------------------------------+ ! FG802.BAC Ver 1.01 - Dummy FG-instruktioner. ! ! F|r ABC802 (och 800 om man vill). ! ! Av Kristoffer Eriksson <5357>, Augusti 1986. ! ! F}r kopieras fritt f|r icke-kommersiellt bruk. ! +------------------------------------------------+ FG802 l{gger in BASIC-instruktionerna f|r h|guppl|sningsgrafik i ABC802, s} att man kan editera program som inneh}ller dessa instruktioner {ven p} 802:an. 806:ans speciella textattributfunktioner finns ocks} med. Programmet tar 306 bytes. Instruktionerna {r: FGPOINT FGLINE FGFILL FGPAINT FGCTL FGPICTURE FGEXIT Och dessutom funktionerna: FGPOINT BLK ULN NULN EL GBLK N{r FG-instruktionerna/funktionen exekveras h{nder inte ett dugg, utom FGEXIT som {r till f|r att koppla ur dessa instruktioner. Det g|rs genom att n}gra pekare }terst{lls, och fungerar ENBART om inga ytterligare finesser har laddats in i maskinen efter FG802. BLK, ULN, NULN, EL, och GBLK ger som vanligt teckenkoder som st{ller in vissa utseendem{ssiga finesser p} den text som skrivs p} sk{rmen. Om maskinen redan inneh}ller FG-instruktionerna sker ingen ny inladdning, varf|r det {r riskfritt att k|ra programmet tv} g}nger i f|ljd. Det g|r ocks} att programmet inte g}r att ladda i ABC806, eftersom alla instruk- tioner redan finns i den. F|ljande lilla program kan dock anv{ndas f|r att l{nka ur maskinens egna instruktioner: 10 ! save STMTUNLN 20 S$=CHR$(128)+"FGPOINT"+CHR$(129)+"FGLINE" 30 INTEGER 40 A=65405 50 WHILE 1 60 G=A 70 A=PEEK2(A) 80 IF A=0 THEN STOP 90 B=PEEK2(A+6) 100 POKE VAROOT(A$),0,1,B,SWAP%(B),0,1 110 IF LEFT$(A$,LEN(S$))<>S$ THEN WEND 120 ; A 130 POKE G,PEEK(A),PEEK2(A+1) ! Url{nkning 140 END Vill man automatiskt starta ytterligare program efter FG802.BAC, kan dettas namn anges direkt i RUN-kommandot: RUN CD,;N[STA CHAIN "CD,;ANNAT" Samma sak g}r {ven att st{lla in mera varaktigt med programmet ST[LLPAR. Mycket n|je, |nskar Kristoffer Eriksson, ABC-klubben <5357>