home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_2_of_3_Side_A.d64 / cad.movie (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  100 lines
  1. 5 rem  **********************************
  2. 10 rem *   giga-cad     graphic-system  *
  3. 15 rem *          'cad.movie'           *
  4. 20 rem * by s. vilsmeier & s. lippstreu *
  5. 25 rem **********************************
  6. 30 :
  7. 35 :
  8. 40 a=peek(836)+1:poke836,a:ifa=1thenload"movie.cad.obj",8,1
  9. 45 poke55,0:poke56,24:clr
  10. 50 c1=11:c4=15:c5=15:c2=12:c3=0
  11. 55 poke53280,14:poke53281,15:poke646,11
  12. 60 open1,8,15,"u9":close1:printchr$(14);chr$(8);
  13. 65 :
  14. 70 :
  15. 75 print"[147][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172] [146]";
  16. 80 print" oo                                  oo [146]";
  17. 85 print" [146]  (       [205]ovie - [200]auptmenue       )[146]   [146]";
  18. 90 print" ><                                  >< [146]";
  19. 95 print"[188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188] [146]";
  20. 100 print"[172][146][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][187][146]";
  21. 105 fori=1to18:print"[180]                                      [170]";:next
  22. 110 print"[188][146][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]":poke2023,254:poke56295,11
  23. 115 print" [193]. - [198]ilm laden"
  24. 120 print" [194]. - [197]inzelnes [194]ild laden"
  25. 125 print" [195]. - [196]iskettenkommando senden"
  26. 130 print" [196]. - [196]irectory"
  27. 135 print" [197]. - [193]blauf : zyklisch        ";
  28. 140 ifzthenprint"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]vor-/rueckwaerts";
  29. 145 print:print" [198]. - [205]odus  : [200]ires     ";
  30. 150 ifmthenprint"[157][157][157][157][157][157][157][157][157][157][205]ulticolor";
  31. 155 print:print" [199]. - [198]arben aendern"
  32. 160 print" [200]. - [198]ilm ansehen":poke198,0
  33. 165 getx$:ifx$<"a"orx$>"h"goto165
  34. 170 onasc(x$)-64goto185,350,310,275,400,405,420,485
  35. 175 :
  36. 180 :
  37. 185 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]"
  38. 190 print"               [198]ilm laden              "
  39. 195 gosub495:n$="":input"[198]ile - [206]ame ";n$:ifn$=""orn$="_"goto55
  40. 200 iflen(n$)>10goto195
  41. 205 a=6144:forx=1to24:print"  [194]ild"x
  42. 210 open2,8,2,"fi."+n$+str$(x)+",p,r":gosub230:iffgoto55
  43. 215 sys50187,a:close2:close1:a=a+2048:ifa=49152thena=51200
  44. 220 nextx
  45. 225 goto55
  46. 230 open1,8,15
  47. 235 input#1,f,f$,t,s:iff=0thenreturn
  48. 240 print:print" [196]iskettenstatus :"
  49. 245 print""f","f$","t","s
  50. 250 poke198,0
  51. 255 getx$:ifx$=""goto255
  52. 260 close2:close1:return
  53. 265 :
  54. 270 :
  55. 275 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]"
  56. 280 print"           [196]irectory anzeigen          ":print
  57. 285 open1,8,15:open2,8,0,"$0":gosub235:iffgoto55
  58. 290 sys50772:close2:gosub235:iff=0thengosub250
  59. 295 goto55
  60. 300 :
  61. 305 :
  62. 310 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]"
  63. 315 print"        [196]iskettenkommando senden       ":gosub495
  64. 320 poke631,34:poke198,1
  65. 325 input"  [203]ommando ";c$:ifc$=""goto55
  66. 330 open1,8,15,c$:gosub235:iff=0thengosub240
  67. 335 goto55
  68. 340 :
  69. 345 :
  70. 350 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]"
  71. 355 print"          [197]inzelnes [194]ild laden         ":gosub495
  72. 360 input"[198]ile - [206]ame des [194]ildes ";n$:ifn$=""goto55
  73. 365 iflen(n$)>13goto360
  74. 370 print"  [193]n welche [211]telle im [198]ilm soll das"
  75. 375 n=-1:input"  [194]ild geladen werden    ";n
  76. 380 ifn<1orn>24goto370
  77. 385 a=4096+n*2048:ifn>21thena=a+2048
  78. 390 open2,8,2,"fi."+n$+",p,r":gosub230:iffgoto55
  79. 395 sys50187,a:close2:close1:goto55
  80. 400 z=1-z:goto115
  81. 405 m=1-m:goto115
  82. 410 :
  83. 415 :
  84. 420 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]"
  85. 425 print"             [198]arben aendern            ":gosub495
  86. 430 ifmgoto455
  87. 435 print"  [214]ordergrund  "c1;:input"[157][157][157][157][157]";c1:ifc1<0orc1>15goto435
  88. 440 print"  [200]intergrund  "c4;:input"[157][157][157][157][157]";c4:ifc4<0orc4>15goto440
  89. 445 print"  [210]and         "c5;:input"[157][157][157][157][157]";c5:ifc5<0orc5>15goto445
  90. 450 goto55
  91. 455 print" [198]arbe 1      "c1;:input"[157][157][157][157][157]";c1:ifc1<0orc1>15goto455
  92. 460 print" [198]arbe 2      "c2;:input"[157][157][157][157][157]";c2:ifc2<0orc2>15goto460
  93. 465 print" [198]arbe 3      "c3;:input"[157][157][157][157][157]";c3:ifc3<0orc3>15goto465
  94. 470 print" [200]intergrund  "c4;:input"[157][157][157][157][157]";c4:ifc4<0orc4>15goto470
  95. 475 print" [210]and         "c5;:input"[157][157][157][157][157]";c5:ifc5<0orc5>15goto475
  96. 480 goto55
  97. 485 print"[147]";:ifmthenpoke53280,c5:poke53281,c4:sys50284,z,m,c1,c2,c3:goto55
  98. 490 poke53280,c5:sys50284,z,m,c1,c4,c3:goto55
  99. 495 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]":return
  100.