home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 86 / Tiger_Disk_086_20xx_Tiger-Crew-Disk_de_Side_B.d64 / aufkleber (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  50 lines
  1. 10 poke53280,0:poke53281,0
  2. 20 clr:print"":printchr$(142):printchr$(147);
  3. 30 print"[176][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][174]"
  4. 40 print"[159][221][213][192][192][201][176][174][176][174][176][192][192][174][176][174][176][174][176][174]  [176][192][192][174][176][192][192][201][176][192][192][174][176][192][192][201][221]"
  5. 50 print"[159][221][221][213][201][221][221][221][221][221][221][176][192][189][221][221][221][221][221][221]  [221][176][192][189][221][176][201][221][221][176][192][189][221][176][201][221][221]"
  6. 60 print"[221][221][173][189][221][221][221][221][221][221][173][174] [221][173][203][203][221][221]  [221][173][174] [221][173][203][203][221][173][174] [221][173][203][203][221]"
  7. 70 print"[154][221][221][176][174][221][221][173][189][221][221][176][189] [221][176][201][201][221][173][192][174][221][176][189] [221][176][201][201][221][176][189] [221][176][201][201][221]"
  8. 80 print"[154][221][221][221][221][221][221][160][160][221][221][221]  [221][221][221][221][221]  [221][221][173][192][174][221][173][203][221][221][173][192][174][221][221][221][221][221]"
  9. 90 print"[221][173][189][173][189][173][192][192][189][173][189]  [173][189][173][189][173][192][192][189][173][192][192][189][173][192][192][203][173][192][192][189][173][189][173][189][221]"
  10. 100 print"[159][221] 8 zeilen  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  11. 110 print"[159][173][192][192][192][192][192][192][192][192][192][192][192][179] (w) 1993 von dr.mabuse [221]"
  12. 120 print"            [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  13. 130 print"info: du kannst acht zeilen zu je    "
  14. 140 print"[184][184][184][184][184] 20 zeichen schreiben !        "
  15. 150 print"      druecke return um die jeweilige"
  16. 160 print"      eingabe abzuschliessen !       "
  17. 170 print"      benutze weder komma [,] noch   "
  18. 180 print"      doppelpunkt [:] !              "
  19. 190 print" druecke taste :  [_]=start  [*]=ende "
  20. 200 geta$:ifa$<>"_"anda$<>"*"then200
  21. 210 ifa$="*"then480
  22. 220 printchr$(147):printchr$(14)
  23. 230 forx=1to8
  24. 240 print"[158] [218]eile [146]"x;:inputl$(x)
  25. 250 iflen(l$(x))>20thenx=x-1:print"[145][145]"
  26. 260 next
  27. 270 print"[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]"
  28. 280 print"[218]um [193]endern einer [218]eile gebe die     "
  29. 290 print"betreffende [206]ummer ([218]ahl 1-8) ein !"
  30. 300 print"[215]enn deine [197]ingaben richtig sind, "
  31. 310 print"druecke [218]iffer 9 zum [196]rucken !     "
  32. 320 print"[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]"
  33. 330 geta$:ifa$=""then330
  34. 340 a=val(a$):ifa<1ora>9then330
  35. 350 ifa=9then390
  36. 360 poke214,23:poke211,0:sys58640:print" [218]eile [146]";a;:inputl$(a)
  37. 370 xx=23:gosub490:print"":forx=1to8:xx=x+1:gosub490:print"[158] [218]eile [146]"x;"  "l$(x)
  38. 380 next:goto330
  39. 390 close4:open4,4,7:a$=""
  40. 400 print"[147][215]enn [196]u die [193]usdrucke stoppen moechtest,"
  41. 410 print"druecke [212]aste [[211]] beim [196]rucken !  "
  42. 420 nc$="":input"[215]ieviele [193]usdrucke bitte ";nc$:nc=val(nc$)
  43. 430 ifnc<1thenrun
  44. 440 forp=1tonc:forl=1to8:print#4,l$(l):nextl
  45. 450 geta$:ifa$="s"thenp=nc
  46. 460 nextp:ifa$="s"then390
  47. 470 run
  48. 480 printchr$(147):clr:sys64738
  49. 490 poke781,xx:sys59903:return
  50.