home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_A.d64 / film-converter (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  122 lines
  1. 10 rem **********************************
  2. 20 rem *         film-coverter:         *
  3. 30 rem *     giga-cad  <->  hi-eddi     *
  4. 40 rem * -------------------------------*
  5. 50 rem *       written in 1986 by       *
  6. 60 rem *        stefan vilsmeier &      *
  7. 70 rem *        stefan lippstreu        *
  8. 80 rem **********************************
  9. 90 :
  10. 100 :
  11. 110 a=peek(836)+1:poke836,a:ifa=1thenload"hicon.obj",8,1
  12. 120 poke53280,14:poke53281,15:poke646,11:open1,8,15,"u9":close1:printtchr$(14);chr$(8)
  13. 130 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]"
  14. 140 print"  [198]ilm-[195]onverter: [199]iga-[195][193][196] <-> [200]i-[197]ddi [146]"
  15. 150 fori=0to21:print" [180]                                    [170]":next
  16. 160 print" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  17. 170 fl=0:print" [193]. - [199]iga-[195][193][196] --> [200]i-[197]ddi"
  18. 180 print" [194]. - [200]i-[197]ddi  --> [199]iga-[195][193][196]"
  19. 190 print" [195]. - [196]iskettenkommando senden"
  20. 200 print" [196]. - [196]irectory anzeigen"
  21. 210 print" [197]. - [199]rafik ansehen"
  22. 220 fori=1to9:print" [180]                                    [170]":next
  23. 230 print" [180]         [215]ritten in 1986 by         [170]"
  24. 240 print" [180][211]tefan [214]ilsmeier &  [211]tefan [204]ippstreu[170]"
  25. 250 geta$:ifa$<"a"ora$>"e"goto250
  26. 260 a=asc(a$):b=4+2*40+(a-64)*80:poke1024+b,122:poke55296+b,11
  27. 270 ona-64goto850,1060,450,340,1210
  28. 280 :
  29. 290 :
  30. 300 rem *********************************
  31. 310 rem *     directory anzeigen        *
  32. 320 rem *********************************
  33. 330 :
  34. 340 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]"
  35. 350 print"           [196]irectory anzeigen          ":print
  36. 360 open1,8,15:open2,8,0,"$0":gosub530:iffgoto100
  37. 370 sys50182:close2:gosub530:iff=0thengosub580
  38. 380 goto100
  39. 390 :
  40. 400 :
  41. 410 rem *********************************
  42. 420 rem *     diskettenkommando senden  *
  43. 430 rem *********************************
  44. 440 :
  45. 450 gosub600
  46. 460 poke631,34:poke198,1
  47. 470 input"[203]ommando ";c$:ifc$=""orc$="_"goto170
  48. 480 open1,8,15,c$:gosub530:iff=0thengosub550
  49. 490 goto170
  50. 500 getx$:ifx$=""goto500
  51. 510 return
  52. 520 sys50179,0:printchr$(14)chr$(8);:return
  53. 530 input#1,f,f$,t,s:iff=0thenreturn
  54. 540 ifflthengosub520
  55. 550 print:print" [196]iskettenstatus :"
  56. 560 print""f","f$","t","s
  57. 570 poke198,0
  58. 580 gosub500
  59. 590 close2:print#1,"u9":close1:return
  60. 600 print" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  61. 610 fori=1to9:print"                                       ":next
  62. 620 return
  63. 630 :
  64. 640 :
  65. 650 rem *********************************
  66. 660 rem *     eingabe-routinen          *
  67. 670 rem *********************************
  68. 680 :
  69. 690 fori=1to4:n1$=n$(i-1):ifn1$="-"goto720
  70. 700 w=2:ifn1$<>""thenifmid$(n1$,len(n1$)-1,1)<>" "thenw=3
  71. 710 ifn1$<>""thenn$=left$(n1$,len(n1$)-w)+str$(val(right$(n1$,w))+1)
  72. 720 print"                 ";n$;"          "
  73. 730 input"[198]ilmbild ";n$(i)
  74. 740 ifn$(i)="_"orn$(i)=""thenf=1:return
  75. 750 next:f=0:n$(0)=n$(4):return
  76. 760 print"                                    "
  77. 770 input"[199]rafik-[206]ame ";n$:f=0:ifn$=""orn$="_"thenf=1
  78. 780 return
  79. 790 :
  80. 800 :
  81. 810 rem *********************************
  82. 820 rem *     giga-cad --> hi-eddi      *
  83. 830 rem *********************************
  84. 840 :
  85. 850 gosub600:gosub690:iffgoto170
  86. 860 fl=1:print"[198]ilm-[196]iskette einlegen!":gosub500
  87. 870 print"[145]                             [145][145][145]"
  88. 880 sys50176,11,15:sys50179,1:fori=1to4:ifn$(i)="-"goto910
  89. 890 open1,8,15:open2,8,2,"fi."+n$(i)+",p,r":gosub530:iffgoto170
  90. 900 sys50185,i:gosub530:iffgoto170
  91. 910 close2:close1:next
  92. 920 gosub520
  93. 930 gosub760:iffgoto170
  94. 940 print"[218]iel-[196]iskette einlegen!":gosub500
  95. 950 print"[145]                             [145][145][145]"
  96. 960 sys50179,1
  97. 970 open1,8,15:open2,8,2,"pi."+n$+",p,w":gosub530:iffgoto170
  98. 980 sys50194:gosub530:iffgoto170
  99. 990 close2:close1:gosub520:goto170
  100. 1000 :
  101. 1010 :
  102. 1020 rem ********************************
  103. 1030 rem *     hi-eddi  --> giga-cad    *
  104. 1040 rem ********************************
  105. 1050 :
  106. 1060 gosub600:gosub760:iffgoto170
  107. 1070 fl=1:print"[199]rafik-[196]iskette einlegen!":gosub500
  108. 1080 print"[145]                             [145][145][145]"
  109. 1090 sys50176,11,15:sys50179,1
  110. 1100 open1,8,15:open2,8,2,"pi."+n$+",p,r":gosub530:iffgoto170
  111. 1110 sys50191:gosub530:iffgoto170
  112. 1120 close2:close1:gosub520
  113. 1130 gosub690:iffgoto170
  114. 1140 print"[218]iel-[196]iskette einlegen!":gosub500
  115. 1150 print"[145]                             [145][145][145]"
  116. 1160 sys50179,1:fori=1to4:ifn$(i)="-"goto910
  117. 1170 open1,8,15:open2,8,2,"fi."+n$(i)+",p,w":gosub530:iffgoto170
  118. 1180 sys50188,i:gosub530:iffgoto170
  119. 1190 close2:close1:next
  120. 1200 gosub520:goto170
  121. 1210 sys50179,1:gosub500:sys50179,0:gosub520:goto170
  122.