home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 4 / Mail_Madness_04_19xx_-_Side_B.d64 / telefon-nr.druck (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  38 lines
  1. 10 rem ********************************
  2. 20 rem *                              *
  3. 30 rem *   telefon - spass            *
  4. 35 rem *                              *
  5. 40 rem * (c) by harald detlefsen 1985 *
  6. 50 rem *                              *
  7. 60 rem ********************************
  8. 80 x$(0)="vorname: ":x$(1)="name: ":x$(2)="vorwahl: ":x$(3)="telefon: ":z$=" "
  9. 100 a$(0)="m. gorbatschow      ":b$(0)="007/09-2959051  "
  10. 110 a$(1)="ronald reagan       ":b$(1)="001/202-4451414 "
  11. 120 a$(2)="helmut kohl         ":b$(2)="0228-561        "
  12. 130 a$(3)="francois mitterand  ":b$(3)="0031-2615100    "
  13. 140 a$(5)="elisabeth ii        ":b$(5)="00441-9304832   "
  14. 150 a$(6)="papst johannes paul ":b$(6)="009722-554111   ":
  15. 170 poke53280,0:poke53281,0:print"[147][158]        wichtige telefon-nummern        "
  16. 172 goto180
  17. 174 poke211,10:poke214,10:sys58640:return
  18. 175 forx=0to36:printz$;:nextx:return
  19. 180 forn=0to3:gosub174:gosub175:gosub174:printx$(n);:open1,0:inputy$(n):close1
  20. 190 nextn:a$(4)=y$(0)+" "+y$(1):iflen(a$(4))<19then230
  21. 210 a$(4)=left$(y$(0),1)+". "+y$(1):iflen(a$(4))<19then230
  22. 220 a$(4)=left$(y$(1),19)
  23. 230 z=((len(a$(4)))-19)*(-1):forn=0toz:a$(4)=a$(4)+z$:nextn:
  24. 240 b$(4)=y$(2)+"-"+y$(3):z=((len(b$(4)))-15)*(-1):forn=0toz:b$(4)=b$(4)+z$:
  25. 245 nextn
  26. 250 open1,4:open10,4,10
  27. 255 print#10
  28. 256 fory=0to3
  29. 310 print#1,chr$(14)"wichtige            wichtige          ":print#1
  30. 330 print#1,chr$(14)"telefon-nummern     telefon-nummern   "
  31. 340 print#1,chr$(14)"------------------  ------------------":print#1
  32. 360 forn=0to6:
  33. 365 print#1,a$(n)chr$(29)b$(n)chr$(29)" "chr$(29)a$(n)chr$(29)b$(n)chr$(29)
  34. 367 nextn:forx=0to1
  35. 368 print#1
  36. 369 nextx
  37. 370 nexty:close1:close10:end
  38.