home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 91 / Tiger_Disk_091_20xx_Tiger-Crew-Disk_de_Side_B.d64 / weltzeitkarte (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  2KB  |  52 lines
  1. 20 poke53281,14:poke53280,14:poke53272,21:print"[149]"
  2. 30 print"[147]pet-quarz-weltzeit":print
  3. 40 print"copyrights by":print
  4. 50 print"christian bohn"
  5. 60 poke198,0:wait198,1:poke198,0
  6. 70 print"[147]geben sie die genaue uhrzeit an!"
  7. 80 print"hhmmss[146]"
  8. 90 input"[145]";ti$
  9. 100 gosub330:print""
  10. 120 a=val(ti$)-90000
  11. 140 b=val(ti$)-60000
  12. 160 c=val(ti$)+20000
  13. 180 d=val(ti$)+40000
  14. 200 e=val(ti$)+90000
  15. 210 ifa<0thena=a+240000
  16. 220 ifb<0thenb=b+240000
  17. 230 ifc>240000thenc=c-240000
  18. 240 ifd>240000thend=d-240000
  19. 250 ife>240000thene=e-240000
  20. 260 a1$=str$(a):a2$=str$(b):a3$=str$(c):a4$=str$(d):a5$=str$(e)
  21. 270 ifa=235959orb=235959orc=240000then100
  22. 280 ifd=240000ore=240000then100
  23. 290 print"";ti$
  24. 300 print"";a1$;"";a3$;"";a5$;""
  25. 310 print"";a2$;"";a4$;"[145][145][145][145][145][145]"
  26. 320 goto120
  27. 330 print"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  28. 340 print"[165]        [172]     [188][146]           [164][162]   [162] [164]   [167]"
  29. 350 print"[162][162][162][162][162][162][169][163][163][163] [223]   [146][169]   [164][185][185] [164][164][162]           [146][162][167]"
  30. 360 print"[223]     [146][169] [187][185] [169][146][169][162][146][184][162][146]  [172] [187] [190]            [172][146][184] [146][167]"
  31. 370 print"[169]     [223][169]  [146]      [191][146] [162][146][185][190]  *            [146][188][191][146][167]"
  32. 380 print"     *[162][146][190] [190]     [172][163]    [162][187][172][187]           [146][190][191][146][167]"
  33. 390 print"*    :[169][146]         [162][146][190][162][188][188] [187]: [188]         [146][188][172][162][146][167]"
  34. 400 print"[223] [146][169][163][163][165]         [169]     [163][205]: [162][185]        [146][161]  [167]"
  35. 410 print": [188][163][146][188][190][209]                [205] [172][146][190][188][187]*[146][169][223]  [146][183] [187] [167]"
  36. 420 print":  [188][163][184][163][146][162]      [170]        :[163][146][187]   [162][146][187] [161][187][146][190] [183][187][167]"
  37. 430 print":   [172]:   [223][146]      [184][162][146][190][187]   :[146][169]    :  [172][191][172][163][146][172] [167]"
  38. 440 print":   [223]:   [188][146][162]        [188]   [146][161]     :   [162][177][146][190][192][146][187][146][167]"
  39. 450 print":    [223]    [146][169]            [146][161][172][165]   :      [172][162][167]"
  40. 460 print":    :[223]  [146][169]            [146][169]:[162][146]    :   [172][163]    "
  41. 470 print":    :  [172][146]           [172][146][190] :     :   [161]  *  "
  42. 480 print":    :  [146][190]              :     :    [188][163]:[223] [146]"
  43. 490 print":    : [223] [146]              :     :      :[188][167]"
  44. 500 print":    :  [188][190]             :     :     chb[167]"
  45. 510 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  46. 520 print":    :         mez     :     :      : "
  47. 530 print"san francisco       moskau   :melbourne"
  48. 540 printtab(29)":"
  49. 550 print"     :                       :  "
  50. 560 print"   new york               bombay "
  51. 570 return
  52.