home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 August / 64er_Magazin_93-08_1993_Markt__Technik_de_Side_A.d64 / f-print (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  583b  |  9 lines
  1. 1 gosub6:s$="          ":fora=1to8:print"f";a;:inputf$(a):f$(a)=left$((f$(a)+s$),10):next
  2. 2 input"n";pr$:pr$=left$(pr$+l$,25):open1,4,s:cmd1:printol$;:fort=1to25:printou$;:next:printro$:printlr$;
  3. 3 printpr$;lr$:printlr$;spc(25);lr$:printlr$;"  ";ol$;:fort=0to10:printou$;:next:printro$;:prints$;lr$
  4. 4 forb=1to4step2:a=b:gosub8:a=b+1:gosub8:gosub7::next:fora=5to8:gosub8:next:printlr$;"  ";ul$;
  5. 5 fora=0to10:printou$;:next:printur$;s$;lr$:printul$;:fora=1to25:printou$;:next:printur$:print:printw$:print#1:close1:end
  6. 6 gosub8:w$="f-print,(c)[160]by christian abt in 1993":s=1:lr$="[179]":print"[147][144]";w$;"":return
  7. 7 printlr$;"  ";lr$;spc(11);lr$;s$;lr$:l$="                         ":ou$="[196]":return
  8. 8 printlr$;"  ";lr$;spc(11);lr$;f$(a);lr$:ro$="[191]":ol$="[218]":ur$="[217]":ul$="[192]":gosub7:return
  9.