1: ' This is just a sample you'll have to make it fit your own needs 2: Wd = 640: Ht = 480 3: SCREEN 12 4: OPEN "LEVEL1.DAT" FOR INPUT AS #1 5: DO UNTIL EOF(1) 6: LINE INPUT #1, gg$ 7: gg$ = LTRIM$(RTRIM$(gg$)) 8: Cnt = Cnt + 1 9: IF LEFT$(gg$, 1) = ";" THEN Cnt = Cnt - 1 10: IF LEN(gg$) > Wdth THEN Wdth = LEN(gg$) 11: LOOP 12: CLOSE 1 13: '- Have to get the block sizes - 14: BlkWd = Wd / Wdth 15: BlkHt = Ht / Cnt 16: PRINT BlkHt; BlkWd 17: OPEN "LEVEL1.DAT" FOR INPUT AS #1 18: DO UNTIL EOF(1) 19: LINE INPUT #1, gg$ 20: gg$ = LTRIM$(RTRIM$(gg$)) 21: FOR q = 1 TO LEN(gg$) 22: IF MID$(gg$, q, 1) = " " THEN GOTO 30 23: LINE ((q - 1) * BlkWd, Ln * BlkHt)-(((q - 1) * BlkWd) + BlkWd, (Ln * BlkHt) + BlkHt), ASC(MID$(gg$, q, 1)) - 63, BF 24: 30 NEXT q 25: IF LEFT$(gg$, 1) = ";" THEN GOTO 20 26: Ln = Ln + 1 27: 20 LOOP 28: CLOSE 1 29: |