home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 June / 64er_Magazin_87-06_1987_Markt__Technik_de_Side_A.d64 / v-p-s-converter (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.7 KB  |  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.