home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 55 / Tiger_Disk_055_19xx_Tiger-Crew-Disk_de_Side_B.d64 / up-manager v1.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  75 lines
  1. 5 poke808,254
  2. 10 poke53265,11
  3. 20 poke53280,5:poke53281,5:poke646,6
  4. 30 fora=832to832+34:readb:pokea,b:nexta
  5. 40 data248,0,0,255,0,0,241,128,00,248,0,0,236,0,0,102,0,0,115,0,0,49,192,0,24
  6. 50 data224,0,0,120,0,0,32,0,0,32
  7. 60 poke53269,1:poke53248,160:poke53249,160:poke2040,13
  8. 70 sys4571
  9. 80 printchr$(147)
  10. 90 print" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  11. 100 print" [194]      user - port manager v1.0     [146][194]"
  12. 110 print" [171][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][179]"
  13. 120 print" [194]pb0[194]pb1[194]pb2[194]pb3[194]pb4[194]pb5[194]pb6[194]pb7[194]pa2[194]"
  14. 130 print" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]";
  15. 140 print:print" [194] c [194] d [194] e [194] f [194] h [194] j [194] k [194] l [194] m [194]"
  16. 150 print" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
  17. 160 print" [171][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][179]"
  18. 170 print" [194]        ausgang oder eingang       [146][194]"
  19. 180 print" [171][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][179]"
  20. 190 print" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
  21. 200 print" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
  22. 210 print" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
  23. 220 print" [171][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][179]"
  24. 230 print" [194]            low oder high          [146][194]"
  25. 240 print" [171][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][179]"
  26. 250 print" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
  27. 260 print" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
  28. 270 print" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
  29. 280 print" [173][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][189]"
  30. 290 print" [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]"
  31. 300 print" coded in 1998 by mr.tec for tigerdisk[146]"
  32. 310 fora=0to7
  33. 320 poke214,12:poke211,2+a*4:sys58732
  34. 330 ifpeek(56579)and2^athenprint"aus":nexta:goto350
  35. 340 print"ein":nexta
  36. 350 poke214,12:poke211,34:sys58732
  37. 360 if(peek(56578)and4)thenprint"aus":goto380
  38. 370 print"ein"
  39. 380 forb=0to7
  40. 390 ifc=0andpeek(56320)and16then410
  41. 400 b=7:nextb:gosub500:goto480
  42. 410 poke214,18:poke211,2+b*4:sys58732
  43. 420 if(peek(56577)and2^b)thenprint"hig":nextb:goto440
  44. 430 print"low":nextb
  45. 440 poke214,18:poke211,34:sys58732
  46. 450 if(peek(56576)and4)thenprint"hig":goto480
  47. 460 print"low"
  48. 470 poke53265,27
  49. 480 ifpeek(56320)and16then380
  50. 490 gosub500:goto480
  51. 500 x=peek(53248):y=peek(53249)
  52. 510 ifpeek(53264)=1then660
  53. 520 ifx>37andx<61thenp=0
  54. 530 ifx>67andx<95thenp=1
  55. 540 ifx>101andx<127thenp=2
  56. 550 ifx>133andx<159thenp=3
  57. 560 ifx>165andx<191thenp=4
  58. 570 ifx>197andx<223thenp=5
  59. 580 ifx>229andx<255thenp=6
  60. 590 ify>183then630
  61. 600 poke214,12:poke211,2+p*4:sys58732
  62. 610 if(peek(56579)and2^p)thenpoke56579,peek(56579)and255-2^p:print"ein":return
  63. 620 poke56579,(peek(56579)and255)or2^p:print"aus":return
  64. 630 poke214,18:poke211,2+p*4:sys58732
  65. 640 if(peek(56577)and2^p)thenpoke56577,peek(56577)and255-2^p:print"low":return
  66. 650 poke56577,(peek(56577)and255)or2^p:print"hig":return
  67. 660 ifx>6andx<32thenp=7:goto590
  68. 670 ify>184then710
  69. 680 poke214,12:poke211,34:sys58732
  70. 690 ifpeek(56578)and4thenpoke56578,peek(56578)and251:print"ein":return
  71. 700 poke56578,(peek(56578)and255)or4:print"aus":return
  72. 710 poke214,18:poke211,34:sys58732
  73. 720 if(peek(56576)and4)thenpoke56576,peek(56576)and251:print"low":return
  74. 730 poke56576,(peek(56576)and255)or4:print"hig":return
  75.