home *** CD-ROM | disk | FTP | other *** search
/ Futura 21 / Futura_Issue_21_1997_NOSAUG_Side_B.atr / loader.lst < prev    next >
File List  |  2023-02-26  |  399b  |  1 lines
  1. 100 DIM INFILE$(14)¢110 POKE 106,PEEK(106)-4:GRAPHICS 0:POKE 710,4:CHSET=PEEK(106)*256¢120 INFILE$="D:YOURFONT.FNT"¢130 GOSUB 30000¢140 POKE 756,CHSET/256¢999 END ¢30000 REM áכנIJגáהנמקáפנרקחמדá¢30010 CLOSE #1:OPEN #1,4,0,INFILE$¢30030 IOCB=832+16:POKE IOCB+2,7¢30040 POKE IOCB+4,0:POKE IOCB+5,CHSET/256¢30050 POKE IOCB+8,0:POKE IOCB+9,4¢30060 XFR=USR(ADR("hhh¬LVΣ"),16)¢30070 CLOSE #1¢30080 RETURN ¢