home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8905.d64 / f-maker (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 FORX=49152TO49308:READA:POKEX,A:NEXT:POKE53280,0:POKE53281,0:PRINT"[147]";
  2. 2 PRINTTAB(16)"[153]F-MAKER":PRINT:PRINTTAB(10)"[154]BY BORIS SCHAEDLER"
  3. 3 PRINT:FORX=0TO7:A$=""
  4. 4 PRINT:PRINT"BEFEHL FUER [150]F"X+1"EINGEBEN !":INPUT"MAX 9 ZEICHEN";A$:IFLEN(A$)>9THEN4
  5. 5 IFLEN(A$)=0THENA=49309+10*X:R=0:GOTO8
  6. 6 INPUT"M[146]IT ODER O[146]HNE >RETURN< ";R$:A=49309+10*X
  7. 7 FORY=1TOLEN(A$):POKEA,ASC(MID$(A$,Y,1)):A=A+1:NEXT:R=13:IFR$="O"THENR=0
  8. 8 POKEA,R:NEXTX
  9. 9 PRINT:INPUT"[154]FILENAHME ";N$:
  10. 10 OPEN3,8,1,N$:PRINT#3,CHR$(0);CHR$(192);
  11. 11 FORX=49152TO49392:PRINT#3,CHR$(PEEK(X));:NEXTX
  12. 12 CLOSE3:END
  13. 13 DATA120,169,13,141,20,3,169,192,141,21,3,88,96,173,142,2,208,30,165,197
  14. 14 DATA201,4,240,50,201,5,240,56,201,6,240,62,201,3,240,68,169,0,141,255,207
  15. 15 DATA76,49,234,0,0,0,0,165,197,201,4,240,25,201,5,240,31,201,6,240,37,201
  16. 16 DATA3,240,43,169,0,141,255,207,76,49,234,160,0,76,114,192,160,10,76,114
  17. 17 DATA192,160,20,76,114,192,160,30,76,114,192,160,40,76,114,192,160,50,76
  18. 18 DATA114,192,160,60,76,114,192,160,70,76,114,192,173,255,207,208,35,162
  19. 19 DATA1,185,157,192,240,17,157,118,2,201,13,240,5,200,232,76,121,192,134
  20. 20 DATA198,76,149,192,202,134,198,76,149,192,169,1,141,255,207,76,49,234
  21.