home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8706a.d64 / v-p-s-converter (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  68 lines
  1. 1 IFA=0THENA=1:LOAD"MC/VPS-CONVERTER",8,1
  2. 10 POKE56,32:CLR:POKE808,225
  3. 20 C$="0A"
  4. 50 AN = 36864 : REM BILD AN
  5. 51 AU = AN+3  : REM BILD AUS
  6. 52 CO = AN+6  : REM BILD CONVERTIEREN
  7. 53 LO = AN+9  : REM BILD LADEN
  8. 54 SA = AN+12 : REM BILD SPEICHERN
  9. 55 CL = AN+15 : REM BILD LOESCHEN
  10. 56 SO = AN+18 : REM BILD SICHERN
  11. 57 GE = AN+21 : REM BILD HOLEN
  12. 58 DI = AN+24 : REM DIRECTORY
  13. 100 POKE53280,11:POKE53281,0:POKE646,15
  14. 110 PRINT"[147][213][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][195][195][195][201]";
  15. 120 PRINT"[194] V-P-S GRAFIK-CONVERTER    BY D. BAYER[194]";
  16. 130 PRINT"[202][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][195][195][195][203]"
  17. 140 PRINTSPC(10)"(1) DIRECTORY"
  18. 150 PRINTSPC(10)"(2) BILD LADEN"
  19. 160 PRINTSPC(10)"(3) BILD ZEIGEN"
  20. 170 PRINTSPC(10)"(4) BILD WAEHLEN"
  21. 180 PRINTSPC(10)"(5) PROGRAMM ENDE"
  22. 200 GETA$:IFA$<"1"ORA$>"5"GOTO200
  23. 210 ONVAL(A$)GOTO5000,1000,2000,3000,4000
  24. 220 GOTO100
  25. 999 END
  26. 1000 PRINT"[147]"SPC(10)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  27. 1001 PRINTSPC(10)"[194]    BILD LADEN    [194]"
  28. 1002 PRINTSPC(10)"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  29. 1010 L$="":INPUT"          NAME : ";L$
  30. 1015 IFL$=""GOTO100
  31. 1020 SYSAN:SYSCL:SYSLO,L$,8,0
  32. 1025 POKE198,0:WAIT198,1:POKE198,0:SYSAU
  33. 1030 OPEN15,8,15:INPUT#15,A,A$,T,S:CLOSE15
  34. 1035 IFA=0GOTO100
  35. 1040 PRINT"[147]DISK-STATUS :"A;A$;T;S
  36. 1050 POKE198,0:WAIT198,1:POKE198,0
  37. 1060 GOTO100
  38. 2000 SYSAN
  39. 2010 POKE198,0:WAIT198,1:POKE198,0
  40. 2020 SYSAU
  41. 2030 GOTO100
  42. 3000 SYSSO:SYSAN
  43. 3010 POKE2,0:SYSCO:SYSAU:IFPEEK(2)THENSYSGE:GOTO100
  44. 3015 B=PEEK(830)-PEEK(828)+1
  45. 3020 PRINT"[147]BREITE DES BILDES :"B
  46. 3025 H=INT(((PEEK(831)-PEEK(829)+1.5)/2)+.5)
  47. 3030 PRINT"HOEHE DES BILDES  :"H
  48. 3040 PRINT"CODE       :   ";C$;"[157][157][157][157]";:INPUTC$
  49. 3041 PRINT"NEUER NAME :   ";N$;:FORI=0TOLEN(N$)+1:PRINT"[157]";:NEXT:INPUTN$
  50. 3050 OPEN1,8,1,C$+"/"+N$
  51. 3055 PRINT#1,CHR$(0)CHR$(234);
  52. 3060 SYSSA
  53. 3070 CLOSE1
  54. 3071 OPEN1,8,2,C$+"."+N$+",S,W"
  55. 3072 PRINT#1,C$;
  56. 3073 FORY=1TOH:FORX=1TOB
  57. 3074 PRINT#1,"[168]";:NEXTX:PRINT#1,CHR$(13);
  58. 3075 NEXTY:CLOSE1
  59. 3080 OPEN15,8,15:INPUT#15,A,A$,T,S:CLOSE15
  60. 3085 C$=LEFT$(C$,1)+CHR$(ASC(MID$(C$,2,1))+1)
  61. 3090 IFA=0GOTO3120
  62. 3100 PRINT"DISK-STATUS :"A;A$;T;S
  63. 3110 POKE198,0:WAIT198,1:POKE198,0
  64. 3120 SYSGE:GOTO100
  65. 4000 PRINT"[147]";:POKE808,237:END
  66. 5000 PRINT"[147]":OPEN2,8,0,"$":SYSDI:CLOSE2
  67. 5010 POKE198,0:WAIT198,1:POKE198,0:GOTO100
  68.