home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / graphutl / flicnvrt.2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.0 KB  |  96 lines
  1. 10 POKE53281,0:POKE53280,0
  2. 15 POKE55,0:POKE56,60:CLR
  3. 20 POKE53272,23
  4. 30 DIMF$(75),B$(75):NU$=CHR$(0)
  5. 40 PRINT"ô₧      ╞╠╔ ├ONVERTER - ╓ERSION 2.0"
  6. 50 PRINT"  £┬Y ╥OSS ╦INARD  (╤╠INK: ╙KUL╠EADER)"
  7. 60 PRINT"     ╨RESS ╙╨┴├┼ TO READ DIRECTORY"
  8. 70 GETZ$:IFZ$=""THEN70
  9. 80 IFZ$=" "THEN100
  10. 90 GOTO70
  11. 100 PRINT"            ╥EADING...."
  12. 110 OPEN3,8,0,"$0:ü*,GG*":POKE781,3:SYS65478:GETA$,A$
  13. 120 GETA$,A$:IFA$=""THEN160
  14. 130 GETA$,B$:B$(N)=STR$(ASC(A$+NU$)+ASC(B$+NU$)*256)
  15. 140 GETA$:IFA$=""THENN=N+1:GOTO120
  16. 150 F$(N)=F$(N)+A$:GOTO140
  17. 160 CLOSE3:SYS65484
  18. 170 PRINT"ô₧      ╞╠╔ ├ONVERTER - ╓ERSION 2.0"
  19. 180 PRINT"¢─╔╙╦:ÿ"MID$(F$(0),2)
  20. 190 PRINT
  21. 200 C=N-2
  22. 210 IFC>15THEN330
  23. 220 S=1:E=C
  24. 230 FORI=1TOC:IFMID$(F$(I),3,1)<>CHR$(34)THENF$(I)=MID$(F$(I),2)
  25. 240 NEXTI
  26. 250 FORI=97TO111:PRINT""CHR$(I)".":NEXTI
  27. 260 PRINT""
  28. 270 FORI=STOE
  29. 280 IFMID$(F$(I),3,1)<>CHR$(34)THENF$(I)="                        "
  30. 290 PRINT"ƒ"F$(I)
  31. 300 NEXTI
  32. 310 PRINT""
  33. 320 GOTO340
  34. 330 S=1:E=15:GOTO230
  35. 340 PRINT"Ö╙ELECT ╨ICTURE (┴-╧) OR HIT (+) FOR"
  36. 350 PRINT"NEXT PAGE, (-) FOR PREVIOUS PAGE,"
  37. 360 PRINT"╙╨┴├┼ FOR NEW DISK, OR (╤) TO ╤UIT"
  38. 370 GETZ$:IFZ$=""THEN370
  39. 380 IFZ$="+"THEN440
  40. 390 IFZ$="-"THEN470
  41. 400 IFZ$=" "THENRUN
  42. 410 IFZ$="Q"THENPRINT"ôƒ╥╒╬ TO ╥ESTART":GOTO840
  43. 420 IFASC(Z$)<65ORASC(Z$)>79THEN370
  44. 430 GOTO490
  45. 440 IFS+15>CTHEN370
  46. 450 S=S+15:E=E+15
  47. 460 PRINT"":GOTO270
  48. 2518 
  49. 480 S=S-15:E=E-15:PRINT"":GOTO270
  50. 490 X$="":V=ASC(Z$):V=V-64
  51. 500 SN=(S-1)+V:IFSN>CTHEN370
  52. 510 PRINT"ôÜ╙ELECTED:₧"F$(SN)
  53. 520 PRINT"ƒ╔S THIS CORRECT? ┘/╬"
  54. 530 GETZ$:IFZ$=""THEN530
  55. 540 IFZ$="Y"THEN560
  56. 550 GOTO170
  57. 560 P=4
  58. 570 Y$=MID$(F$(SN),P,1)
  59. 580 IFY$=CHR$(34)THEN600
  60. 590 X$=X$+Y$:P=P+1:GOTO570
  61. 600 IFMID$(X$,1,1)=CHR$(129)THEN635
  62. 605 PRINT"╠OADING ╨ICTURE..."
  63. 610 SYS 4229,X$,8,0,36864
  64. 620 SYS 4656
  65. 630 GOTO650
  66. 635 PRINT"╠OADING ╨ICTURE..."
  67. 640 SYS 4229,X$,8,0,24576
  68. 650 REM **MANIPULATE BITMAP**
  69. 655 PRINT"£╨ROCESSING ╨ICTURE..."
  70. 660 FORI=0TO24:X=(    
  71. 670 POKEX,0:POKEX+1,0:POKEX+2,0:NEXTI
  72. 680 FORI=0TO24:X=(I*40)+33576
  73. 690 POKEX,0:POKEX+1,0:POKEX+2,0:NEXTI
  74. 700 FORI=0TO24
  75. 710 K=(I*320)+24576
  76. 720 FORJ=0TO23
  77. 730 POKEK+J,0
  78. 740 NEXTJ
  79. 750 NEXTI
  80. 760 SYS 4302
  81. 765 IFPEEK(34576)<>0THEN767
  82. 766 GOTO775
  83. 767 PRINT"╘HIS PICTURE'S BACKGROUND IS NOT ┬╠┴├╦"
  84. 768 PRINT"├ONTINUE PROCESS? ┘/╬"
  85. 769 GETZ$:IFZ$=""THEN769
  86. 770 IFZ$="Y"THEN775
  87. 771 IFZ$="N"THEN170
  88. 772 GOTO769
  89. 775 INPUT"Ü╙AVE AS:  FLI.¥¥¥¥¥¥";S$
  90. 780 PRINT"Ö╔NSERT ─EST. ─ISK & ╨RESS A ╦EY"
  91. 790 GETZ$:IFZ$=""THEN790
  92. 800 SYS 4260,S$,8,0,15360,32575
  93. 810 PRINT"₧┴NOTHER? ┘/╬"
  94. 820 GETZ$:IFZ$=""THEN820
  95. 830 IFZ$="    ºè
  96.