home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8702a.d64 / film-converter (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.