home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 3 / Tiger_Disk_003_1994-06_Tiger-Crew-Disk_de_Side_B.d64 / disk-huellen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  61 lines
  1. 10 gosub400
  2. 20 rem tuete von alexander leenen/paul-ehrlich-str.15/4152 kempen 1/02152/53534
  3. 30 a=len(a$):c=int(a/2):b=29-c:d=a-c
  4. 40 e=len(b$):f=int(e/2):g=29-f:h=e-f
  5. 50 i=len(c$):j=int(i/2):k=29-j:l=i-j
  6. 60 open4,4:cmd4:a=len(a$):c=int(a/2):b=29-c:d=a-c
  7. 65 forp=1toy
  8. 70 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  9. 80 print"[192][192][192][192][192][192][192][192][192][201]"
  10. 90 fori=1to8
  11. 100 print"[221]     .";spc(58);".     [194]"
  12. 120 nexti
  13. 130 print"[221]     .";spc(b);a$;spc(29-d);".     [194]"
  14. 140 print"[221]     .";spc(58);".     [194]"
  15. 160 print"[221]     .";spc(g);b$;spc(29-h);".     [194]"
  16. 170 print"[221]     .";spc(58);".     [194]"
  17. 190 print"[221]     .";spc(k);c$;spc(29-l);".     [194]"
  18. 220 fori=1to10
  19. 230 print"[221]     .";spc(58);".     [194]"
  20. 250 nexti
  21. 260 print"[202][192][192][192][192][192][201] -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ";
  22. 270 print"-  [213][192][192][192][192][192][203]"
  23. 280 fori=1to28
  24. 290 print"      [221]";spc(58);"[194]":nexti
  25. 310 print"      [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  26. 320 print"[192][192][192][203]"
  27. 325 nextp:fork=1to20:print:nextk
  28. 330 print#4:close4,4
  29. 340 print"[147] und nun viel spass beim falten
  30. 350 [153]" wuenscht ihnen :"
  31. 360 [153]" alexander leenen"
  32. 370 [153]" paul-ehrlich-str.15"
  33. 380 [153]" 02152/53534"
  34. 390 [153]" 4152 kempen 1"
  35. 391 [153]"  neustart des programms mit 'run' !":[153]"             * t - c *"
  36. 392 [128]
  37. 400 [151]53280,1:[151]53281,1
  38. 410 [153]"loadstop   tuete, ein programm von alexander                     leenen"
  39. 420 [153]"   'modifiziert' by     tiger - crew"
  40. 430 [153]"   mit  diesem  programm koennen sie       diskettenhuellen drucken.
  41. 440 print" 3 zeilen text zu je 40 zeichen koennen  zum druck auf der";
  42. 450 print"   huellenvorderseite":print" eingegeben werden."
  43. 460 print"   die huellen  einfach  an der ge -"
  44. 470 print"   strichelten   linie  knicken  und"
  45. 480 print"   kleben.":poke198,0:wait198,1:poke198,0:print"[147]"
  46. 490 print"  huellentext, 1. zeile ":inputa$
  47. 500 print"  huellentext, 2. zeile ":inputb$
  48. 510 print"  huellentext, 3. zeile ":inputc$
  49. 511 print"      eingaben wunschgemaess ?"
  50. 512 getw$:ifw$<>"j"andw$<>"n"then512
  51. 513 ifw$="n"thenprint"":goto490
  52. 520 print"[147][144]    wieviele huellen sollen":input"    gedruckt werden   1[157][157][157]";y$
  53. 530 y=val(y$):ify<1thenprint"[145][145][145][145][145]":goto520
  54. 535 ify<21then570
  55. 540 print"          ";y;"[146] -":print"    wirklich  soooo viele ?"
  56. 550 getz$:ifz$<>"j"andz$<>"n"then550
  57. 560 ifz$="n"thenprint"[145][145][145][145][145][145][145][145]":goto520
  58. 570 print   " ***auf knopfdruck geht es los ***"
  59. 580 poke198,0:wait198,1:poke198,0
  60. 590 return
  61.