home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_015_19xx_-_de_Side_B.d64 / love (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  57 lines
  1. 10 rem  l o v e
  2. 20 :
  3. 30 poke 53280,15:poke 53281,15:poke 646,0
  4. 40 print chr$(147);chr$(142);:print tab(17);"love"
  5. 50 print:print
  6. 60 print"ein lob fuer den grossen amerikanischen"
  7. 70 print"kuenstler robert indiana. sein groesstes";
  8. 80 print"werk wird mit einer nachricht deiner"
  9. 90 print"wahl mit bis zu 60 zeichen wiedergege-"
  10. 100 print"ben. wenn dir keine nachricht einfaellt,";
  11. 110 print"tippe einfach 'love' ein.":print
  12. 120 input"deine nachricht bitte";a$:l=len(a$)
  13. 130 :
  14. 140 open 1,4,2
  15. 150 print#1,chr$(27);"@";chr$(27);"[193]";chr$(9);:rem reset und zeilenabstand
  16. 160 print#1,chr$(27);"l";chr$(4);:rem linker rand
  17. 170 print#1,chr$(27);"[205]";:rem elite ein
  18. 180 print#1,chr$(27);"x1";:rem nlq ein
  19. 190 print#1,chr$(27);"k";chr$(0);:rem nlq courier
  20. 200 close 1:gosub 490
  21. 210 open 1,4,1
  22. 220 dim t$(120)
  23. 230 for j=0 to int(60/l)
  24. 240 for i=1 to l
  25. 250 t$(j*l+i)=mid$(a$,i,1)
  26. 260 next i:next j
  27. 270 c=0
  28. 280 a1=1:p=1:c=c+1:if c=37 then 470
  29. 290 print#1,
  30. 300 read a:a1=a1+a:if p=1 then 320
  31. 310 for i=1 to a:print#1," ";:next i:p=1:goto 330
  32. 320 for i=a1-a to a1-1:print#1,t$(i);:next i:p=0
  33. 330 if a1>60 then 280
  34. 340 goto 300
  35. 350 data60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5
  36. 360 data4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4
  37. 370 data4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4
  38. 380 data4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,6,8,11,4
  39. 390 data4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8
  40. 400 data1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,1
  41. 410 data5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1
  42. 420 data6,6,9,3,12,6,16,1,1,6,6,9,3,12,6,7,1,10
  43. 430 data7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10
  44. 440 data8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1
  45. 450 data9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,10,16,6,12,5,1
  46. 460 data11,8,13,27,1,11,8,13,27,1,60
  47. 470 print#1,:close 1
  48. 480 end
  49. 490 print chr$(147)
  50. 500 print"du hast jetzt noch einmal die"
  51. 510 print"gelegenheit, an deinem drucker"
  52. 520 print"die schriftart zu veraendern."
  53. 530 print:print"wenn alles stimmt, dann druecke"
  54. 540 print"eine taste..."
  55. 550 get q$:if q$="" then 550
  56. 560 return
  57.