Download: bcards.zip (zipped .prg) I just made a bunch of business cards with my vic-20. Just modify it with your name etc, print out as many as you like and then cut them apart. Next time you give someone a business card, wouldn't it be fun to say, oh by the way, that card was made with a vic-20... I think this kind of simple programs must have been what Commodore thought people would use their computer for ;-) |
10 open1,4,7:rem mps1250 locase 15 print#1,chr$(27);"x1":rem nlq 20 print"how many?":print"(6=one paper)" 30 inputa 40 fort=1toa 45 print#1,"ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ" 46 print#1 47 print#1 50 print#1," Your Name" 60 print#1 70 print#1," https://www.yourpage.se" 80 print#1," your@email.com" 90 print#1 100 print#1 110 print#1,"ÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ" 140 next:close1 |
Note: À = Horizontal line character {Shift-* / (or Shift-- on Swedish Vic)}